CBM 8-Bit Magazine Index: Compute's Gazette Special Section

=. = - oe

COMPUTE

AUGUST 1991

/._ POCKET ROCKETS FOR ROAD WARRIORS
SUPER BATCH FILES!
SUMMER FUN WITH PALMTOP ARCADES -

K. £1.95
ia |
4

93

86°02

I

o_ your choice of these pegutar FOR
Se a Eee

Plus shipping and handling, with membership.

Ao t4 ID

Super Solvers

New Math Blaster Plus: M@ Su;

@ Where in the U.: @ Where in Time is a er Solvers
= Carmen San Diego?: tm Carmen San Diego?: WH Regular Price: $49.95 a Outnumbered:
Regular Price: $49.95 Regular Price: $49.95 gw World's best-selling math ww Regular Price: $49.95
Won Outstanding Software Travel through Time to program has fun Ahighly-recommended
4 Award! Learn hundreds of capture the villain and her “Blasternaut” game. program that develops
for Children U.S.A. facts. gang. New Version Now math, problem-solving
3-13+ Available for IBM and Available for IBM and Available for IBM, and other skills.
Apple ||, ITEM NUMBER 1 Apple Il, ITEM NUMBER 2 Apple Il version's MBP, Available for IBM and

ITEM NUMBER 3. compatibles only,
ITEM NUMBER 4

SOFTWARE
SELECTION
GUIDE

Key to Colors:

ypiig!
Ay

B Ages 3-7
5 Teese | wea = M@ Ages 7-10
Mavis Beacon Teaches Typing: @ The Oregon Trail: The New Print Shop: 1 Mixed-Up Mother Goose: Stepping Stones | & i
I Regular Price: $49.95 fm Regular Price: $49.95 f@ Regular Price: $59.95 Regular Price: $39.95 a Regular Prog $49.95 a Ages 10-13+
1B Best Home Learning Award! Travel with a pioneer family The most popular graphics we Help Mother Goose find the From early reading to addition,
Fun typing skills for all across the 19th century software in history. Print your missing pieces to her spelling and vocabulary.
ages. wilderness, learning how to own cards, banners and signs. rhymes. Colorful graphics.
Available for IBM and survive. Printer required. Available for IBM and Available for IBM =
Apple ll, ITEM NUMBER 5 Available for IBM and Available for IBM and Apple ll, ITEM NUMBER 8 (enhanced version) and g
Apple Il, ITEM NUMBER 6 Apple Il, ITEM NUMBER 7, Apple ll, ITEM NUMBER 9

Watch your children laugh and learn...with software that’s fun, fun, fun!

You've got the children. You've got the computer. Now you can bring the two Exciting Newsletter...FREE!
together and tum leisure time into learning time with software that’s fun! Charter members receive the Learning Adventure Computer Club Parents
The Learning Adventure Computer Club takes the work out of software selection Newsletter FREE. Featuring a host of recommended software for children 3-13+!
a a=

for you. We review hundreds of computer programs for youngsters — invite Poosrrr rr <=
H =
1

children like yours to test them — then select only the ones that combine active fun | Miaill to: Learning Adventure Computer Club

with measurable learning in:

* MATH * SOCIAL SCIENCE AND GEOGRAPHY * SCIENCE
* LANGUAGE ARTS AND READING * CRITICAL THINKING SKILLS

925 Oak Street, Scranton, PA 18515 Dept. TARA81

YES! Please send me the program | have indicated below to preview for 15
© days at no risk or obligation. | may return the program after 15 days and

I
1
! !
1 1
1 1
--AND MORE IMPORTANT SKILLS! 1 have no further obligation. if am pleased with the program, Il pay for itt the special !
ftware Geared Child’s A ge resi 1 New member price of only $9.95 plus $2.95 shipping and handling, and enrollasanew 4
oa teu eter’ et ch derwestts : ts b 1 member under the terms outlined on this page. As anew member, | needtobuyjust3 1
prog) " ¥ poneckaule Colored Square oy | more selections at regular club prices in the next year and may cancel any time thereafter. |
each program: they’re keyed in three age groups. ! !
Blue programs introduce your 3-7 year-olds to the computer with activities that 1 Name. !
arouse their curiosity...capture their imagination...and instill a lifelong love of t Address f
learning. Red programs turn the Three R’s into rip-roaring adventures for 7-10 year- | oe = 1
olds with programs developed to supplement their education and turn their MaGity. State Zip 4
weaknesses into strengths. Green programs stretch the minds of 10-13+ year-olds 1 Telephone ( ) 1
with sophisticated software that make academic challenges fun and rewarding! | 1. Pl d it b in iew. (Pl fil'in !
. Please send me item number preview. (Please fill |
Operates: 0) Sea srwcerestoret H
How the Club tes: a ¢ att 1 identification number of program shown above.) 1
Try your first computer program FREE for 15 days at no risk or obligation. Just 1 Bry cE 1
select the software package of your choice, fill out the coupon and mail it today. Hl 2. AGE of child ‘(check one): Hl
We'll send you the program you select. If you are pleased with the program, you'll \ 37 7-10 10-4 3+ : !
pay for it at the Charter Members’ price of just $9.95 plus shipping and handling, a 3. Computer you own and size of disk required (check one): 1
savings of up to $50.00 off the retail price. H IBM/Tandy & Compatibles with 5 1/4" disk drive H
Then about every four weeks (13 times a year) you'll receive a new Parents ! IBM/Tandy & Compatibles with 3 Vet disk drive \
Newsletter with details about the next selection for your child. To receive the main | Apple |! Family & Compatibles with 5 4" disk drive H
selection, you need do nothing — it will be sent automatically. If you wish to order | 4. Child’ f
an alternate selection, or wish no selection at all, simply return the card we provide | ™ id's name, I
to tell us your choice. You will always have at least 10 days to decide. ! Child's birthdate: Month Day. Year. i
. : $ H
Enjoy a 15-Day Free Trial , | 5. Please check below if you have a: I
What's more, you will always have 15 days to preview each shipment and return I Printer Modem Color Monitor !
any program you don’t want. Your only commitment is to purchase three H 1
additional selections in the next year at regular club prices. You may cancel your 1 6, Parent's Signature !
membership anytime thereafter. You have absolutely nothing to lose, and a whole ! We reserve the right to request additional information or reject any application or cancel any membership. Limited 4
new world of fun and learning to gain for your children. So don’t wait: return the | tonew membersin the continental USA only excluding AK. Sales tax willbe added in PAand CA. Well sendyou
1 i 1 details of the clubs operation with your enrollment shipment, and you have a 15-day no-obligation privilege to 1
coupon today! {decide i you wish to continue as a member H
Circle Reader Service Number 184 LeeLee ee ee ee ee - --4

64/128 VIEW

T OM

NETS EL

f you read this column with any

regularity, you’ll recall that a couple

of months ago I said Gazette would

no longer be available on U.S.
newsstands. It would be available in
this country by subscription only.

I had visions of seedy characters
loitering outside U.S. computer
stores. They would approach custom-
ers, flash a Canadian COMPUTE, and
ask, “Psst! Wanna buy a hot news-
stand Gazette?”

Along the Rio Grande, at cross-
ings formerly used by people trying to
enter the U.S. without benefit of pass-
port or visa, customs and immigra-
tion officials would encounter furtive
figures struggling under heavy loads of
plastic-wrapped magazines. Gazette-
sniffing dogs would alert their han-
dlers, and another illegal shipment of
bootlegged COMPUTES would be
confiscated at the border.

Even if these unpleasant sights
were only figments of my imagina-
tion, the letters we received were real.
“Have you stopped publishing?” read-
ers asked. ““Where’s my Gazette?”

In case you missed my April edi-
torial, which explained about Ga-
zette’s being pulled from U.S.
newsstands, don’t dig through your
back issues trying to find it. That's all
changed anyway. Gazette is back!

Effective with the July issue, the
full Gazette and Amiga sections are
scheduled to appear once again in
thousands of newsstand copies of
COMPUTE. By the time you read
this, the change should already be in
effect—but not at all locations.

Look for Gazette in COMPUTE
on sale at Software Boutiques, Soft-
ware Etc., and Babbage’s. These com-
puter stores should have the Gazette
newsstand editions first. We'll an-
nounce additional locations as they
become available.

As most 64 and 128 enthusiasts
know, they aren’t alone in the world.
Millions of 8-bit Commodores are in
use from Belgium to Brazil and from
Puerto Rico to Pakistan. From the
publications and user group newslet-
ters we receive from around the

world, we realize that there’s a great
deal of 64/128 activity going on that
the average user never learns about.
There are computer shows in Eng-
land, new software releases in Austra-
lia, programming techniques devel-
oped in Germany, and more.

In our effort to bring you the best
from the 8-bit Commodore world, we
want to increase our international
coverage. What’s happening in your
country that might interest 64 owners
elsewhere? What’s hot in software?

Each month I'd like to print
“Column from Abroad,” featuring the
64/128 activities in different coun-
tries. If you’re a writer with your fin-
ger on the Commodore pulse in your
country, I’d like to hear from you.
Perhaps you know ofa writer or col-
umnist in your local newspaper or
computer magazine who could pre-
pare a 1000-word column. If you can
recommend someone, have him or
her get in touch with me at our
Greensboro, North Carolina, office.

This month, we feature a partial
listing of Commodore user groups in
America. Next month we'll complete
the listing and include the names and
addresses of overseas groups that have
returned our survey. As you'll see,
there are quite a few of them.

Programmers from around the
globe supply many of the type-in pro-
grams we feature in Gazette. In this is-
sue, Simulvideo, an outstanding
graphics-conversion utility, was sub-
mitted by Richard Penn, who lives in
Montreal, Quebec.

Gazette Disk subscribers will en-
joy Sector Patrol, a fast-paced arcade
game that’s this month’s bonus pro-
gram. Grant Young is the author and
lives in Christchurch, New Zealand..

To give more recognition to all of
our programmers, both international
and domestic, next month we'll start
publishing biographical information
about them at the end of each pro-
gram’s documentation. So if you sub-
mit a program to Gazette, include
information about your occupation,
hobbies, or any personal information
you’d like to share with our readers.

AUG US T

CONTENTS

64/128 View G-1
TOM NETSEL

Gazette is back on selected
U.S. newsstands,

News & Notes

EDITORS

A new game from Accolade
and more graphics and fonts
for GEOS users.

A Guide to Commodore
User Groups (Part I) G-6
KANDI SYKES

Addresses and BBS telephone
numbers of user groups from
Alabama—New Hampshire.

Reviews G-12
REVIEWERS

Mondu’s Fight Palace, Ferrari
Formula One, Big Blue Reader,

G-2

and War of the Lance.
Feedback G-16
READERS and EDITORS
Questions and answers about
the 64 and 128.
GEOS G-19
STEVE VANDER ARK
Machine Language G-20
JIM BUTTERFIELD
Beginner BASIC G-21
LARRY COTTON
Programmer’s Page G-22
RANDY THOMPSON
D’Iversions G-24
FRED D’IGNAZIO
TYPE-INPROGRAMS G-25
Crypto-64 G-25
Simulvideo G-26
Riddle G-30
Magic Mouse G-34
T/E 80 G-35
1991 COMPUTE Gt

NEWS & NOTES

|

g
3
w
«
°
a
°
=
=
°
0 |
ua
=
ja
we
NN
qd
4)

<2 eS

Tee Off

Play the most infamous courses of the
U.S. Open with a new add-on disk
from Jack Nicklaus and Accolade (550
South Winchester Boulevard, San
Jose, California 95128). Jack Nicklaus
Presents the Great Courses of the
U.S. Open ($14.95) is the fourth ina
series of course disks for use with
Nicklaus's Unlimited Golf & Course
Design and Greatest 18 Holes of Ma-
jor Championship Golf.

The new disk contains three of
the most challenging and popular
courses to play host to the U.S. Open:
Pebble Beach Golf Links, Oakmont
Country Club, and Baltusrol Golf Club.
These three courses (in California,
Pennsylvania, and New Jersey, re-
spectively) have been the sites for 11
U.S. Open championships, and Nick-
laus has won at least one champion-
ship on each of them.

Seek and
Destroy

Put on your camouflage fatigues and
test your mapping skills with Metal
Gear ($14.95), a new release from Ul-
tra Software (900 Deerfield Parkway,
Buffalo Grove, Illinois 60089), a sub-
sidiary of Konami.

Wind through five levels as you
search for 20 special weapons and
equipment to seek and destroy the title
character and end the terror spree of
the evil CaTaffy. Discover the weap-
ons and equipment in enemy trucks
and storehouses, or get them from
certain soldiers of fortune.

Your most vital tool is your trans-
ceiver, which lets you communicate
with Commander South, who is at Fox
Hound's headquarters and feeds you
crucial information on Metal Gear's lo-
cation. The mission ends when you
destroy Metal Gear—or he destroys
you. It's as simple as that.

From the
Grapevine

Need a new SID chip, upgraded ROM
for your 1571, or Z80A CPU for your
1287 If you're looking for spare parts,
integrated circuits, chips, cables, or
other items for your Commodore
products—including your Amiga—
look for them in the new free catalog
from the Grapevine Group (3 Chestnut
Street, Suffern, New York 10901; 800-
292-7445).

Grapevine stocks service man-
uals, replacement printer heads, pow-
er supplies, diagnostic and alignment
tools, and tutorials. Its catalog is a
great resource for end users and re-
pair centers.

If you occasionally like to lean back in
your chair with your keyboard in your
lap but you hate to hassle with the 64's
power cord, disk drive, and monitor
cables, there's finally a cure. With a
Detached Keyboard ($60, plus $3 ship-
ping and handling) from SER (P.O.
Box 5382, Racine, Wisconsin 53408-
5382), you're no longer tied to one
spot with your 64.

A six-foot cable frees your hands
from the desktop, and an ergonomic
palm rest saves your hands and wrists
from long hours spent at the com-
puter. Its single cable also eliminates
the current nest of cables by letting
you separate the 64 CPU from this ac-
cessible keyboard.

Abrams M-1

Abrams M-1, by John Green of Freeport, New
York, is this disk’s Picture of the Month.

Each month Gazette Disk features a collection of the best 64/128 artwork
submitted by our readers. We pay $50 for each piece of art we accept for
“Gazette Gallery” and an extra $50 for the one selected as Picture of the
Month. Send original art to Gazette Gallery, COMPUTE Publications, 324
West Wendover Avenue, Suite 200, Greensboro, North Carolina 27408.

G2 COMPUTE

AUGUST

WLC

WE CAN RECONFIGURE ANY OF OUR COMPUTER PACKAGES TO YOUR
SPECIFICATIONS. CALL FOR DETAILS!

WE INVITE CORPORATE & EDUCATIONAL CUSTOMERS - DISCOUNTS FOR
QUANTITY ORDERS - RUSH, 2ND DAY & NEXT DAY AIR SERVICE AVAILABLE!

GIRJAIN/T]=:

AMIGA

=

ESTABLISHED

1967

MAGNAVOX 13" COLOR :
MAGNAVOX 13" COLOR
4 RGB/COMPOSITE MONITOR
c Commodore? eer ate $259 Gr eec compet) a 79
® Compatible)
COMMODORE 1541II COMMODORE 1571
NENG DISK DRIVE s] 59 DISK DRIVE CALL
Includes: RAPID ACCESS RAPID ACCESS
Quantum Link Software FD-148 DISK DRIVE FD-168 DISK DRIVE

1750 Clone RAM Expansion..........
Aprotek 2400 Baud Modem for 64/128.
Cartridge Expander for 64/128.
Commodore 1700 RAM Expansion.
Cardco G-Wiz Interlace..
Gomipocora 60 Mocs Micro C-128 Power Supply.
Inkwell Light Pen. Excellerator Plus FSDII Power Supply... ‘$19.95

OTHER ACCESSORIES FOR YOUR COMMODORE COMPUTER AVAILABLE

Super Snapshot 5.0.......
Xetec S, Graphix Jr. Interface...
Xetec S. Graphix Sr. Interface...
Xetec Lt. Kernal 20MB for 64/128...

Xetec Lt. Kernal 40MB for 64/128...

MONOCHROME
COMPOSITE MONITORS partons Nhe
(RECONDITIONED) Carmen. Time. ;

$9995
SAVE BIG $ SS

WHEN YOU BUY ONE OF OUR ALL IN 0

Pocket Writer.
Pocket Writer

Turrican Il...
Utima Vi.
Word Writer VI.

CITIZEN

=
PANASONIC GSX-140...

KXP-1180.
KXP-1191.
KXP-1123.

* Commodore 64C $195.95 xp-4 424) 95 Color Option Kit...
Computer Ronee $279.95
5 ae 1541 | . Commodore 64C | + Commodore 64C sa) i $200.05 COMMODORE $1 39%
+ Joystick Computer Computer 80 con ae Printer $ 95
* Quantum Link * Commodore 1541 | * Commodore 1541
Software Disk Drive Disk Drive COMMODORE INTERFACE

SANYO PR-3000 $ 4 95
Daisy Wheel Lett
RISUCTUAnE +80 Column Printer | *80 Column Printer | SPECIAL 5 FREE GAMES w/PURCHASE “Olaly Pir

PACKAGES INCLUDED: || * 12" Monitor * Color Monitor aes ETSS
ia “Q + Quantum Link visa Ko eee
+ Advanced Tactical Fightor luantum Link intum Lin! Lares “4

+ Infitrator Il + Harner ware Software
«Crazy Cars + Tomohawk oot

289 ‘Sug! *449

(Circle Reader Service Number 187,

+]
=
3
Ww
C4
°
a
°
=
=
9
a)
ze)
=
ka
ud
N
eh
6

NEWS & NOTES

Great GEOS
Graphics

GEOS users now have 16 disks of
ready-to-use graphics with the release
of Diskart 13, 14, and 15 ($10.50 each)
from Those Designers (3330 Lewis
Avenue, Signal Hill, California 90807).
Diskart 13 contains international
symbols, hobbies and pastimes, toys,
national flags, and mechanical de-
vices. Diskart 14 has commercial and

Unlimited Life

Want to play your favorite game with unlimited lives? Then try Strata Gems ($5
each, plus $3.50 shipping and handling) from Silvasoft (P.O. Box 231, Charlotte,
Vermont 05445).

Each disk contains parameters for 50 games, including both new and old ti-
tles. These parameters are trainers you add to the game to give yourself unlimit-
ed lives or a limitless supply of ammunition or energy. Some games have three
or more trainers you can add.

Titles on Strata Gems | include Baal, Castlevania, Frogger, Krazy Kong,
Tongue of the Fatman, and many more. On Strata Gems /I, look for Batman, De-
mon Stalkers, Rocky Horror, Starfire, Test Drive, and 45 others.

military aircraft, military vehicles, and
sports, Look for plants and flowers,

trees and shrubs, furniture silhouettes,
and churches on Diskart 15.
New at

the Zoo

The Electronic Zoo (3431-A Benson
Avenue, Baltimore, Maryland 21227)
has announced two new games for
the 64: Black Gold ($24.95) and Spher-
ical ($24.95).

Join the international power bro-
kers in Black Gold and guide your
company in a global search for oil. Buy
and sell oil fields, build pipelines, study
surveys, drill for oil, and sabotage the
competition in this multiplayer game.

Move two blocks, point your
wand, and add a new wall in Spheri-
cal. Back up and create some steps to
the next platform before the ball starts
rolling. There are more than 200 levels
in this arcade-style game.

GEOS Fonts

As an introductory offer for its new 80-
page Geo Font Reference Booklet,
Parsec (P.O. Box 111, Salem, Massa-
chusetts 01970) is bundling its font
booklet with 12 double-sided disks
filled with more than 550 public do-
main GEOS fonts ($24.95 plus $2.90
shipping and handling for the U.S.,
$7.50 for Canada).

The booklet contains examples of
each font. This makes it very easy for
GEOS users to identify the fonts they
want to use in a document, see how
they look, and then locate them on
disk. It's a great reference tool.

Intergalactic Warfare

Created by the codesigner of the Archon series, Star Control ($39.95) from Acco-
lade (550 South Winchester Avenue, San Jose, California 95128) combines deep
strategy with action-arcade tactical combat.

As a veteran commander of an Alliance fleet of battle cruisers, you've been
battling the evil Hierarchy for years. Now the aliens are invading interstellar
neighbors and enslaving the inhabitants. To save the galaxy from this invading
horde, you must construct and deploy your fleet, explore new stars, and build
mines, colonies, and fortifications. Target the enemy's home star system, but
don't leave yours undefended. Choose from nine scenarios, or build your own in
this one- or two-player science-fiction war game. In the one-player game the
computer opponent can be assigned one of three levels of skill: standard, good,
or awesome. This level will affect the outcome of its tactical and strategic abili-
ties. Choose from 14 ships and let the melee begin.

Windfall from
Commodore

What happens when a computer manufacturer drops many of its dealers like so
many bad apples? Another manufacturer recognizes their worth, picks them up,
and helps them to shine.

That's the idea behind Windfall, a new educational marketing program an-
nounced by Commodore Business Machines (1200 Wilson Avenue, West Ches-
ter, Pennsylvania 19380). It's targeted at Apple educational dealers, ex-Apple
educational dealers, and value-added retailers.

Under Commodore's new program, dealers can become authorized as
quickly as one week after being interviewed. They then become eligible to buy
demonstration equipment at discounted prices, including the new UNIX
workstations.

“We now feel that we are able to appeal to a lot of good dealers who have
significant experience in educational sales,” said Paul Calkin, director of educa-
tion and UNIX marketing at Commodore. ‘This program offers them a way to
use their current contacts and expertise in the educational area to generate sig-
nificant, profitable revenue with what we feel is the most capable and affordable
desktop machine in the world.”

Users of Commodore equipment should also benefit from Windfall and its
new prices. ‘‘Commodore's new educational pricing structure makes it easy for
educational institutions, teachers, and higher education students to buy at signifi-
cant discounts off of the list price,” said Ron Stanczak, Commodore vice presi-
dent of sales. “Our new dealer education program has been well thought out, «

and we believe it to be one of the best in the industry.””

G4 COMPUTE

AUGUST

UV Oe

The Lowest Prices in theWorld on
Commodore-Ready eb Really!!

Stir”

THE COMPUTER PRINTER SCC THE COMPUTER PRINTER

ONLY
$1590” @& $139°°
Full color &

Commodore-ready! = 4 y Ready to plug into your
NX-1000C Rainbow Commodore and go!

ONLY

Printin full color| Near-letter quality at 36 cps and high- . A
speed draft at 144 cps features the new paper parking Printer Accessories NX-1 000c
nt front panel controls. Great for 7
Steen ie ee “This is the Commo- Black Ribbon for NX-1000C/NX-1 ook 95 __ This is the Commodoreready version of the NX-
dore-ready version—no additional interfaces or cables Rainbow Color Printer 75471 5. 1000, You can just plug it in and start printing—no
are required. Sug. Retail Color Ribbon for NX-1000/NX-1000C 5 additional interfaces or cables are required.
NX-1000C Rainbow Color Printer, Rainbow Color Printer 75485 $9.95 Sug. Retail
Commodore Ready 75783 $249-95- Dust Cover for NX-1000C/NX-1000C NX-1000C Printer 75060
LOWEST PRICE EVER! $159.95 Rainbow Color Printer 77789 $8.95 LOWEST PRICE EVER! $139.95

Don't miss out on the hottest new
products and great prices on the most
popular hardware and software!!
Call Today for your FREE catalogs!

Quality TENEX
Power Supplies

From

$3495

Lifetime Warranty!

TENEX MW 701-A. Conservatively rated at 5V
and 1,8A this unit for the Cé4 features a double
fused system. Its new heat-sink design allows cooler
Operating temperatures inside the case. Lifetime
warranty. Sug. Retail $49.95
TENEX MW 701-A 84513 $34.95

TENEX MW 705. Perfect for your C-| 28! This is a
heavy-duty, switching power supply rated at3 amps
at 5VDC. Lifetime warranty. Sug. Retail $69.95
TENEX MW 705 90686 $49.95

IBM Compatibles Commodore

*Shipping, Handling, Insurance
TENEX Computer Express eepeah S Serge.
P.O. Box 6578 $20.00-539 575
South Bend, IN 46660 Seu Oa? Sue

$75.00-$98 99 7.75
219) 259-7051 — Fi 9) 259-1 5
(219) “AX (219) 259-0300 ests as

We gladly accept mail orders! $150.00-$299.99 9.75
gladly P No Extra Fee For Charges $200.00 & up Boe

ORDER TODAY CALL 1-800-PROMPT-1

COMMODORE 64 and COMMODORE 128 are registered trademarks of Comm:
lead-times, product prices and specifications are subject to change without

re

Electronics, Ltd. AMIGA is a registered trademark of Commodore Amiga inc.. NOTE: Due to publishing
* APO, FPO, AK, HI, CN, VI, GU, and foreign orders are subject to additional shipping charges. GSN
Circle Reader Service Number 170

}

fa =
Hee Svan

x?
HAY
CO,

CaS
A GUIDE TO

PART ONE |

EDITED BY KANDI SYKES

UNIPHOTO/PICTOR

G6 COMPUTE ASUNGuUES Ti | h9eOPT

his annual Gazette feature

provides an up-to-date list

of user groups across the

U.S.A., throughout Canada,
and around the world. Part | in-
cludes states Alabama-New
Hampshire. Under each state
heading, the groups are listed
in order according to ZIP code.

User groups from the re-

maining states, APO sources,
and foreign countries will be
listed next month.

Birmingham Commodore Club,
P.O. Box 59564, Birming-
ham, AL 35259

Valley Commodore Users Group
(VCUG), P.O. Box 835, De-
catur, AL 35602-0835

Scottsboro Commodore Users
Group, Rte. 5, Box 255,
Scottsboro, AL 35768

Montgomery Area Commodore
Komputer Society (MACKS),
606 Larkin Ln., Montgomery,
AL 36109

Commodore Mobile Users Group

(CMUG), P.O. Box 9524,
Mobile, AL 36691-0524

Anchorage Commodore Users
Group (ACUG), Box 104615,
Anchorage, AK 99510 (BBS#
907-349-7467)

Commodore/Amiga Users Group,
2597 Boulder Ave., North
Pole, AK 99705

Sitka Commodore User’s Group,
P.O. Box 2204, Sitka, AK
99835

ARIZONA

COUGAR, P.O. Box 9641, Scotts-
dale, AZ 85252-9641

Valley One Twenty Eight (VOTE)
User’s Group, P.O. Box 9641,
Scottsdale, AZ 85252-9641

Arizona Commodore Users.
Group, P.O. Box 27201,
Tempe, AZ 85282

Gila Hackers, Rte. 1, Box 34,
Globe, AZ 85501

Prescott Area Commodore Club
(P.A.C.C.), c/o D. D, Van
Kirk, P.O. Box 4019, Pres-
cott, AZ 86301

Triple-D 64, P.O. Box 301,
Reyno, AR 72462

A: Half/Dos Will Travel, 503
Kaylynn Dr., Walnut Ridge,
AR 72476 (BBS# 501-886-
1701)

South Bay Commodore User’s
Group, P.O. Box 1176, Re-
dondo Beach, CA 90278
(Voice# 213-324-8357)

Commodore Helpers of Long
Beach, c/o Tom Hoy, 3736
Myrtle Ave., Long Beach, CA
90807 (Voice# 213-424-0508)

The Software Palace, 8978 Megan
Ave., West Hills, CA 91304

Association for Sharing Commo-
dore Information (ASCI),
6160 Malvern Ave., Rancho
Cucamonga, CA 91701-3736

“C128 West” Commodore 128
User Group, c/o John P. Cal-
houn, 17047 Devanah St.,
Covina, CA 91722 (BBS#
714-598-1755)

California Area Commodore
Terminal User Society
(C.A.C.T.US.), 1626 N. Wil-
son Ave., Upland, CA 91786-
1773

Oceana-64 Commodore User
Group, 1004 Plover Way,
Oceanside, CA 92057

CRA Commodore Computer Club,
General Dynamics Electron-
ics Div., P.O. Box 85310,
Mail Zone 7234-A, San Die-
go, CA 92186-5310

Barstow Commodore Users
Group, c/o First Congrega-
tional Church of Barstow,
220 N. 2nd St., Barstow, CA
92311

Club-64 (San Bernardino), P.O.
Box 514, Patton, CA 92369
(BBS#s 714-881-1215 and
714-862-1744)

Coast Commodore Club (CCC),
P.O. Box 1497, Costa Mesa,
CA 92628 (BBS# 714-979-
8333)

Commodore Technical User
Group (CTUG) of Orange
County, P.O. Box 1497, Costa
Mesa, CA 92628

Coastline Commodore Club,
20311 Ravenwood Ln,, Hun-
tington Beach, CA 92646
(Voice# 714-962-9847)

AUGUST

South Orange Commodore Klub
(SOCK), 25401 Champlain
Rd., Laguna Hills, CA 92653

Orange County Commodore Club
(O.C.C.C.), 1517 W. Carriage
Dr., Santa Ana, CA 92704

CIVIC64/128, P.O. Box 2442,
Oxnard, CA 93034-2442
(BBS# 805-382-1125)

Commodore Owners of Lake
Isabella California (COLIC),
P.O. Box 2332, Lake Isabella,
CA 93240

A Bakersfield Area Commodore
Users Society (ABACUS),
P.O. Box 40334, Bakersfield,
CA 93384 (BBS# 805-833-
1866 and Voice# 805-832-
7928)

CSUN (Commodore System User
Network), c/o 3894 Jupiter
Ave., Lompoc, CA 93436-
1904

Central Coast Commodore Users
Group, 3643 Lakeview Ct.,
Santa Maria, CA 93455

Fresno Commodore User Group/
64UM, P.O. Box 16098, Fres-
no, CA 93755 (BBS# 209-
226-5313)

PLUG (Plus/4 Users’ Group),
P.O. Box 1001, Monterey,
CA 93942 (Voice# 408-883-
0818)

CWest Bay Area Commodore and
Amiga Users Group, 1564
Waller #B, San Francisco, CA
94117 (BBS# 415-552-9320)

PETCETERA-On-The-Air, 525
Crestlake Dr., San Francisco,
CA 94132

Commodore Connection Users
Group, P.O. Box 2851, Anti-
och, CA 94509 (BBS# 415-
754-8077)

Diablo Valley Commodore User
Group, P.O, Box 27155, Con-
cord, CA 94527

Napa Valley Computer Club, P.O.
Box 2324, Napa, CA 94558

Commodore Hayward Users
Group (CHUG), P.O. Box
2072, San Leandro, CA
94577

Monterey Bay Commodore Users
Group, 921 Tower PI., Santa
Cruz, CA 95062-4118 (BBS#
408-464-8924)

64/More Commodore User
Group, P.O. Box 612794, San
Jose, CA 95161-2794

Valley Computer Club, P.O. Box
310, Denair, CA 95316

Om Ola

CAOUMERS UME:

G-7

Commodore Humboldt User Group, P.O.
Box 6502, Eureka, CA 95502
Sacramento Commodore Computer Club,
P.O. Box 13393, Sacramento, CA
95813-3393 (BBS# 916-446-4094)
Hub Area Commodore Club (HACC),
Glen Parker, P.O. Box 398, Campton-
ville, CA 95922 (BBS# 916-674-1703)
The Classic 64 Preservation Society, 660
Walton Dr., Red Bluff, CA 96080

COLORADO

Colorado Commodore Computer Club,
1192S. Nome St., Aurora, CO 80012
(BBS# 303-469-3265)

Front Range Commodore Club, P.O. Box
272, Niwot, CO 80544-0272

Western Slope Commodore Users Group,
3125-B Lakeside Dr., Grand Junction,
CO 81506

CONNECTICUT

Hartford County Commodore Users
Group, c/o Gary J. Stagliano, 182-J
Homestead St., Manchester, CT
06040-3042 (BBS# 203-649-9057 9
p.m.-9 a.m., voice days)

Capital Region Commodore Computer
Club (CRCCC), P.O. Box 2372, Ver-
non, CT 06066

The New London County Commodore Us-
er’s Group (NLCCUG), P.O. Box 697,
Groton, CT 06340 (BBS# 203-823-
1750)

First State Commodore Club, P.O. Box
1313, Dover, DE 19903-1313

Lower Delaware Computer Club
(L.D.C.C.), P.O. Box 5344, Nassau,
DE 19969 (Voice# 302-945-7224)

Welaka Commodore Users Group, P.O.
Box 1104, Welaka, FL 32193-1104

Commodore User Group of Pensacola,
P.O. Box 36367, Pensacola, FL 32516
(BBS# 904-484-9952)

Commodore Milton User Group
(C.M.U.G.), 4356 Old Hickory Ham-
mock Rd., Milton, FL 32583

Gainesville Commodore User Group, P.O.
Box 14716, Gainesville, FL 32604-
4716

Titusville Commodore Club, 890 Alford
St, Titusville, FL 32796 (BBS# 407-
269-2169)

Central Florida Commodore Users’ Club,
P.O. Box 547326, Orlando, FL 32854-
7326 (BBS# 407-291-8730)

Fast Software of Costa Rica, Arturo Arana
Garcia(1573-21), P.O. Box 025216,
Miami, FL 33102-5216

Manasota Commodore Users Group
(MSCUG), P.O. Box 698, Oneco, FL
34264-0698 (BBS# 813-748-7513)

Dinosaur 64, c/o Robbin Tate, P.O. Box
9202, Masaryktown, FL 34609

Clearwater Commodore Club, P.O. Box
11211, Clearwater, FL 34616

Gulfcoast 64’s Commodore Users Group,
P.O. Box 11180, Clearwater, FL 34616
(BBS# 813-584-6040)

Suncoast Commodore Club, P.O. Box
6628, Ozona, FL 34660-6628

GB COMPUTE

AUGUST

Suncoast Bytes Commodore Computer
Club, P.O. Box 721, Elfers, FL 34680

Starcom User’s Group of Martin County,
P.O. Box 1446, Port Salerno, FL
34992

Metro Atlanta Commodore Klub (MACK),
P.O. Box 813481, Smyrna, GA 30081
(BBS# 404-439-7350)

Commodore User Group of Atlanta, P.O.
Box 2031, Tucker, GA 30085-2031

Stone Mountain Users Group (SMUG
64/128), P.O. Box 1762, Lilburn, GA
30226 (BBS# 404-925-8829)

Commodore Format User’s Group, P.O.
Box 2196, Atlanta, GA 30301 (BBS#
404-659-2606)

Albany Commodore Amateur Computer-
ists Users Group (ACAC), P.O. Box
5461, Albany, GA 31706-5461

Commodore Hawaii Users Group
(CHUG), P.O. Box 23260, Honolulu,
HI 96823-3260 (BBS# 808-672-6483)

Pocatello Commodore Users Group
(PCUG), Rte. 2, Box 48E, Pocatello,
ID 83202 (BBS# 208-237-6935)

Banana Belt Commodore Users Group
(BBCUG), P.O. Box 1272, Lewiston,
ID 83501

PFP 64/Amiga Software Exchange, 860
Sherwood #306, Boise, ID 83706

Treasure Valley/Boise User Group
(TV/BUG), P.O. Box 6853, Boise, ID
83707

Diskoveries PD Library Club, P.O. Box
9153, Waukegan, IL 60079

Fox Valley Commodore User Group, P.O.
Box 28, N. Aurora, IL 60542

CCR Commodore Club, P.O. Box 10022,
Rockford, IL 61131-0024

Knox Commodore Club, P.O. Box 494,
Galesburg, IL 61402-0494 (BBS# 309-
344-5042)

Survivors of the Sixty-Four Users Group
(SOSUG), P.O. Box 6108, Macomb,
IL 61455

Canton Area Commodore Users Group,
P.O. Box 61, Canton, IL 61520

Central Illinois Family Assisted Commo-
dore Enthusiasts (C.I.F. A.C.E.) #19,
156 Fandel Dr., E. Peoria, IL 61611
(BBS# 309-745-9273)

Champaign-Urbana Commodore User
Group (CUCUG), P.O. Box 716,
Champaign, IL 61824-0716 (BBS#
217-356-8056)

Meeting 64/128 Users Thru the Mail, Rte.

1, Box 151, St. Joseph, IL 61873

Gateway Computer Club, P.O. Box 1839,
Fairview Heights, IL 62208

Western Illinois Programmer’s User
Group (WIPUG), Rte. 5, Box 75,
Quincy, IL 62301-9314

MUGS, 315 W. Madison, Girard, IL
62640

SPUG Computer Club, P.O. Box 9035,
Springfield, IL 62791 (BBS# 217-789-
6644)

1991

INDIANA

Logansport Computer Club, P.O. Box
1161, Logansport, IN 46947

Com-Net, P.O. Box 161, Vevay, IN 47043
(BBS# 708-433-8287)

Richmond Area Computer Users Group
(RACUG), P.O. Box 1332, Richmond,
IN 47375 (BBS# 317-935-1256)

Commodore Computer Club, 819 Treelane
Dr., Newburgh, IN 47630

Fraternal Order of Police Computer Club
(FOPCC), 2535 Anthony Dr., Evans-
ville, IN 47711-2101 (Voice# 812-473-
4763)

Commodore SIG F.L.A.G., P.O. Box 1022,
Crawfordsville, IN 47933

Commodore Users Group Ames Region
(COUGAR), P.O. Box 2302, Ames,
TA 50010-2302 (BBS# 515-292-6204)

Capitol Complex Commodore Computer
Club, P.O. Box 212, Des Moines, IA
50301

Commodore Computer User’s Group of
Iowa (CCUGD), P. O. Box 3140, Des
Moines, IA 50316-9998

Fort Dodge Commodore Users Group, c/o
Patrick King, P.O. Box 479, Manson,
TA 50563 (BBS# 515-576-7922)

Plymouth County Commodore User’s
Group (PLYCCUG), 508 Ist St. SW,
Le Mars, IA 51031

Crawford County Commodore Users
Group, 519 N. 19th St., Denison, IA
51442

Commodore Players & Users of Iowa, P.O.
Box 493, Essex, IA 51638

Commo-Hawk Commodore Users Group,
P.O. Box 2724, Cedar Rapids, IA
52406-2724 (BBS# 319-396-0446)

TCCUG, P.O. Box 8439-0439, Topeka, KS
66608 (BBS# 913-357-0683)

KENTUCKY

Louisville Users of Commodore of Ken-
tucky (L.U.C.K.Y.), P.O. Box 19032,
Louisville, KY 40219-0032 (BBS#
502-969-9360)

Commodore User’s Club of Jenkins, c/o
Jenkins High School, Patricia John-
son, Box 552, Jenkins, KY 41537

Bowling Green Commodore Users Group
(B.G.C.U.G.), c/o Bill Edwards, Presi-
dent, P.O. Box 20214, Bowling Green,
KY 42102

Glasgow Commodore Computer Club, P.O.
Box 154, Glasgow, KY 42142 (BBS#
502-678-5292)

Commodore Owners of Owensboro, KY
(COOKY), 3807 Krystal Ln., Owens-
boro, KY 42303 (BBS# 502-684-2068)

Baton Rouge Area Commodore Enthusi-
asts (BRACE), P.O. Box 1422, Baton
Rouge, LA 70821 (BBS# 504-778-
1556)

ARK-LA-TEX Commodore Computer
Club, P.O. Box 6502, Shreveport, LA
71106

PAGE Computer Users Group, P.O. Box
7706, Alexandria, LA 71306-7706

GAZETTE
DISK L/BRARY

VALUE-PACKED SOFTWARE
AT AFFORDABLE PRICES

All Gazette disks are menu-driven for ease of use—and they feature complete
documentation. Just load and you're ready to go!

SpeedScript $11.95
COMPUTE Publications’ most popular program
ever, Powerful word processing package includes
SpeedScript for the 64, SpeedScript 128, spelling
checkers for both 64 and 128 versions, plus an
additional dozen support programs, including
mail-merge and word-count utilities.

Gazette Index $7.95
Every article and department from Gazette—July
1983 through December 1990 issues—is indexed:
features, games, reviews, programming, ‘Bug-
Swatter,” “Feedback,” and the other columns.
Disk features pull-down menus, help screens,
superfast searching/sorting capabilities, and
much more.

Best Gazette Games $9.95
Best dozen arcade and strategy games ever
published in Gazette all on one disk. All games for
Commodore 64, Titles: Crossroads |/; Pandemo-
nium, Basketball Sam & Ed, Delta War, Heat
Seeker, Omicron, Powerball, Q-Bird, Trap, Arcade
Volleyball, Mosaic, Power Poker, and Scorpion II.

Gazette's Power Tools $9.95
Fourteen of the most important utilities for the

64 ever published in Gazette. For serious users,
Titles: MetaBASIC, Disk Rapid Transit, Mob Maker,
Ultrafont+, Quick!, Disk Editor, Basically Music,
PrintScreen, 1526 PrintScreen, Fast Assembler,
Smart Disassembler, Comparator, Sprint lH, and
Turbo Format.

The GEOS Collection $11.95
Gazette’s best 13 programs for GEOS and GEOS
128 users. Selection includes utilities, applications,
and games. Titles: Super Printer Driver, Skeet, File
Saver, Help Pad, Word Count, Directory Printer,
Quick Clock, SlideShow, File Retriever, Screen
Dumper, Font Grabber, GeoPuzzle, and
GeoConverter.

128 Classics $11.95
Thirteen of Gazette’s best 128 programs, including
utilities, games, and applications. Titles:
MetaBASIC 128, RAMDisk 128, 80-Column Disk
Sector Editor, MultiSort, Block Out, Miami Ice,

The Animals’ Show, Cribbage, XPressCard, Sound
Designer, Video Slide Show, Math Graphics, and
3-D BarGrapher.

}—l—J— Et tT IE Ta bt A AT |

* Residents of North Carolina and New York add appropriate sales tax. Canadian orders. add 7% goods and services tax.

All 6 DISKS FOR ONLY $49.95!

A $13.00 SAVINGS!

Name

Address

City State ZIP

Amount Method of

enclosed §$ payment 1 Check or Money Order

Mail to Gazette Disks (for orders over $20)
324 W. Wendover Ave., Ste. 200
Greensboro, NC 27408
Credit card no.
Signature (required)
Daytime phone number

Exp. date

i
i
i
i]
i]
i
O VISA or MasterCard :
i
i
i
i
i
i
i
i

** For delivery outside the U.S. or Canada, add $1 for surface mail or $3 for airmail, Ail orders must be in U.S. funds drawn on a U.S, bank,

i SPECIAL OFFER!

| All prices include shipping & handling.

I speedScript D $11.95
f Gazette Index oO $7.95
I Best Gazette Games O $ 9.95
i Gazette's Power Tools oO $ 9.95
i The GEOS Collection O $11.95
y_ 128 Classics O $11.95
i Special 6-Disk Offer O $49.95
i Subtotal

} Tax*

| Outside U.S. or Canada**

i Total

i

|

L

ee

West Bank Users Group of New Orleans,
LA (W.B.U.G.), P.O. Box 740854,
New Orleans, LA 70174-0854 (BBS#
504-861-2365, Voice# 504-368-0578)

Commodore Users Group of Coastal
Maine, Rte. 2, Box 3254, Bowdoin-
ham, ME 04008

Your Users Group (YUG), P.O. Box 1924,
N. Windham, ME 04062

Southern Maine Commodore User Group,
P.O. Box 416, Scarborough, ME
04074-0416 (BBS# 207-967-3719)

Commodore Users Society of Penobscot
(CUSP), c/o 101 Crosby Hall, Univer-
sity of Maine at Orono, Orono, ME
04469

MARYLAND

Rockville Commodore Users Group, 505
Marcia Ln., Rockville, MD 20851-
1509

National Institute of Standards and Tech-
nology Commodore Users Group, 8
Cross Ridge Ct., Germantown, MD
20874

VIC Appreciators (VICAP), 14901 Donna
Dr., Silver Spring, MD 20905-4364

North Baltimore Users Group (NOBUG
64/128), P.O. Box 18835, Baltimore,
MD 21206

Annapolis Commodore User’s Group, P.O.
Box 3358, Annapolis, MD 21403

MASSACHUSETTS

Pioneer Valley Computer Club, 6 Laurel
Ter., Westfield, MA 01085 (BBS# 413-
568-4466)

Commodore User Group of the Berkshires,
c/o C. F. Hunt, 38 Walden Ln., Pitts-
field, MA 01201

North East Computer U.G., 24 Pineneedle
St., Chelmsford, MA 01824 (BBS#
508-250-8098)

Michigan Commodore Users Group, P.O.
Box 539, E. Detroit, MI 48021 (BBS#s
313-293-7340 and 313-892-3375)

Washtenaw Commodore Users Group,
P.O. Box 2050, Ann Arbor, MI 48106-
2050

Downriver Commodore Group, P.O. Box
1277, Southgate, MI 48195 (BBS#
313-386-1565)

Saginaw Area Commodore User’s Group
(S.A.C.U.G.), P.O. Box 2393, Sagi-
naw, MI 48605

Midland Computer Club, 4702 Jefferson,
Midland, MI 48640 (BBS# 313-631-
3471)

Bay Area Commodore Club, 338 S. Sheri-
dan Ct., Bay City, MI 48708

Southwestern Michigan Commodore Users
Association, P.O. Box 306, Kalama-
zoo, MI 49005 (BBS# 616-342-5802)

Battle Creek Commodore and Amiga V.
Enthusiasts (BCCAVE), P.O. Box
2539, Battle Creek, MI 49016-2539

Traverse Area Commodore Club, P.O. Box
1, Rodney, MI 49342

Tri-County Computer Club, 607 E. Dow-
land St., Ludington, MI 49431

G10 COMPUTE

AUGUST

Upper Peninsula Commodore Users
Group, 20 N. Billings St., Gwinn, MI
49841 (BBS# 313-485-1951)

Minnesota Commodore Users Association,
P.O. Box 22638, Robbinsdale, MN
55422 (BBS# 612-425-3813)

Commodore Bemidji User Group, 4740
Sunnyside Rd. SE, Bemidji, MN
56601-8313

Coastline Commodore Computer Club,
P.O. Box 114, Biloxi, MS 39533
(BBS# 601-832-2076)

McDonnell Douglas Recreational Com-
puter Club, c/o Bruce Darrough, 3748
Cranberry Ct., Florissant, MO 63031-
6625 (BBS# 314-521-8197)

The Commodore Users Group of Saint
Louis (C.U.G.S.L.), P.O. Box 28424,
Creve Coeur, MO 63146-0984 (BBS#
314-878-8816)

The Southeast Missouri Commodore User
Group, P.O. Box 615, Farmington,
MO 63640

Heartland Users Group, P.O. Box 281,
Cape Girardeau, MO 63702-0281

Commodore North Users Group, SYSOP
Charlie Hunsburger, P.O. Box 34534,
N. Kansas City, MO 64116 (BBS#
816-454-8806)

Joplin Commodore Computer User Group,
422 S. Florida Ave., Joplin, MO
64801

WORLD-WIDE C=64/128 User Group
(WWCUG), P. O. Box 1294, Camden-
ton, MO 65020

Columbia Commodore User (CCU), P.O.
Box 7633, Columbia, MO 65205
(BBS# 314-449-8095)

MOARK (Missouri/Arkansas) Commo-
dore Users Group, HCR 1, Box 85,
Lampe, MO 65681

Commodore User Group of Springfield
(CUGOS), Box 607, Springfield, MO
65801 (BBS# 417-862-9325)

MONTANA

Miles City 64/128 Users Group, c/o Mi-
chael G. Sparling, 700 S. Prairie, Miles
City, MT 59301

Pathfinder Commodore User Group, 1817
Briarcliff Rd., Fremont, NE 68025

Greater Omaha Commodore Users Group
(GOCUG), P.O. Box 241155, Omaha,
NE 68124-1155 (BBS# 402-733-7015)

Mid-Nebraska Users of Computers
(MUC), 1920 N. Huston Ave., Grand
Island, NE 68803 (BBS# 308-389-
6495)

K.A.C.C.K: Kearney Area Commodore
Computer Klub, P.O. Box 1611, Kear-
ney, NE 68848-1611

McCook Commodore Users Group, Dave
Matthews, 80812 W. Ist, McCook, NE
69001

Platte Valley Computer Users Group
(PVCUG), P.O. Box 367, Gering, NE
69341

Ute? a]

NEVADA

Clark County Commodore Computer Club
(5 C’s), 8652 Trafalgar Dr., Las Vegas,
NV 89117 (BBS# 702-795-4008)

Manchester Commodore Users Group,
P.O. Box 1641, Manchester, NH
03105

Commodore Help And Information Net-
work (CHAIN Gang), P.O. Box 654,
Laconia, NH 03247

Seacoast Commodore Users Group, P.O.
Box 511, Durham, NH 03824-0511

If your group does not appear in
this list, send your club name, ad-
dress, and bulletin board service tele-
phone number (if available) to

Commodore 64/128 User Group
Update

COMPUTE’s Gazette

324 W. Wendover Ave., Ste. 200

Greensboro, NC 27408

Your group will be listed in a user
group update in a future issue.

Note: When writing to a user group for
information, please remember to en-
close a self-addressed envelope with
postage that is appropriate for the
country to which you’re writing.
COMPUTE Publications does not
condone the use of its user group lists
by individuals or user groups for the
purpose of buying, selling, or trading
pirated sofiware. Should we discover
any group participating in any such
illegal and unethical activity, the club’s
listing will be permanently deleted

from our files. a

ENTER NOW!
DESIGN-A-ROBOT
CONTEST

Invent a new personal robot on pa-
per and send your designs, plans,
and sketches to ‘'D'Iversions” col-
umnist Fred D'Ignazio. Also tell him
what robots mean to you. First prize
is a large model robot valued at
$200, and five runners-up will win
smaller robots valued at $30 each.

Send entries to Design-a-Robot
Contest, COMPUTE Publications,
324 West Wendover Avenue, Suite
200, Greensboro, North Carolina
27408. Hurry; all entries must be re-
ceived by August 30, 1991.

The Gazette
2 pase. SE
Manager

(Formerly PowerPak)

Harness the productivity
power of your 64 or 128!

Turn your Commodore into

a powerful workhorse, keep track
of finances, generate reports
in a snap, manage your
money in minutes—

all with the new 1991
Gazette Productivity
Manager! Look at all
your 64/128 Productivity
Manager disk contains.

ORDER YOUR
1991 GAZETTE
PRODUCTIVITY
MANAGER
TODAY!

GemCalc 64 & 128—

A complete, powerful, user-

friendly spreadsheet with all
the features you'd expect
in an expensive commercial package
(separate 64 and 128 versions are included).

Most commands can be performed with a single keypress!

Memo Card—Unleashes the power of a full-blown
database without the fuss! Nothing’s easier—it’s a
truly simple computerized address file. Just type in
your data on any one of the index cards. Need to edit?
Just use the standard Commodore editing keys.
Finished? Just save the data to floppy. What could be
easier?

(MasterCard and Visa accepted on orders with subtotal over $20).

DYES! Please send me __ Productivity Manager disk(s)

($14.95 each).

—__—— Subtotal

_____ Sales Tax (Residents of NC and NY please add appro-
priate sales tax for your area. Canadian orders, add
7% goods and services tax.)

—— Shipping and Handling ($2.00 U.S. and Canada, $3.00
surface mail, $5.00 airmail per disk.)

—_—_—— Total Enclosed

— Check or Money Order — MasterCard — VISA

Credit Card No.

I
I
|
Financial Planner—Answers all of those questions !
concerning interest, investments, and money manage-
ment that financial analysts charge big bucks for! You I
can plan for your children’s education and know |
exactly how much it will cost and how much you need !
to save every month to reach your goal. Or, decide I
whether to buy or lease a new car. Use the compound !
interest and savings function to arrive at accurate '
I
I
I
I
I
|
I
I
I
I
|
1

Signature

estimates of how your money will work for you. CRequlred)
Compute the answer at the click of a key! aaa aE

Address
DON’T MISS OUT ON THIS :| =: Za

Send your order to Gazette 1991 Productivity Manager,
324 W. Wendover Ave., Ste. 200, Greensboro, NC 27408.

POWERFUL WORKHORSE!

a
3
Ps
8
2
=
8
ry
-
-
WW
N
<
GS

MONDU'S FIGHT
PALACE

Ithough it’s not a new game to

the software world, Mondu’s

Fight Palace is new for the 64. It

was released originally for IBM
and compatible machines as Tongue
of the Fatman, and the 64 version
looks every bit as good as the original.

This bizarre fighting game takes
place in the domain of Mondu the
Fat. He watches over combatants in
his arena. They must fight to the
death, and he delights in the contest.
In Mondu’s Fight Palace, you have
been thrown into a pit to battle the
Fatman’s contenders. There are two
ways to escape: defeat all of Mondu’s
cronies and the Fatman himself or
die. I don’t think it’s hard to choose.

Although fight games are a dime
a dozen, Fight Palace goes beyond the
norm and breaks the mold. In addi-
tion to dazzling your opponents with
your acrobatic moves, power-packed
punches, and high kicks, you can
choose weapons and bet on your fight.
These additional options make Mon-
du’s Fight Palace more challenging
and entertaining. Not only are you
playing against a computer-based op-
ponent or second player, but you are
also playing against the bet you made
on yourself,

You start the game with 1000
credits. Use part of this money to buy
weapons from Doctor Kadaver’s
Weapons Store and part to bet on how
long it will take you to finish off the
other creature. Only the first oppo-
nent is a humanoid. All of the rest are
members of intergalactic races, and
they each have unusual fighting traits
and styles.

To help even the odds, you can
buy weapons to use in the arena. You

Dr. Kadaver doesn’t give credit.

Fight Palace is played from a side
view and with a number of different
backgrounds. Below the main screen
are pictures of the opponents, weap-
ons boxes, and bars representing suc-
cess, life, and attack power. Hitting
one of the function keys activates a
weapon. All other movements and ac-
tions are performed with the joystick.

It takes three or four games to get
used to Fight Palace, after which you
can actually try to defeat the creatures.
After another few games, you should
know some of the opponents well
enough to beat them in a short
amount of time. Before long, you'll be
racking up the credits and gearing up
to beat the Fatman.

The graphics in Fight Palace are
detailed and colorful. Particularly no-
ticeable are the strange movements
and unique appearances of each of the
ten creatures in the game, from Colo-
noid and Behemoth to Rubic and
Freezer. The different creatures give
the game its personality. Sounds are
minimal and unnecessary in this
game. You won't miss them because
you'll be too busy trying to survive.
RUSS CECCOLA Pl

Commodore 64 or 128—$29.95

ACTIVISION

3885 Bohannon Dr.
Menlo Park, CA 94025
(415) 329-0800

can only buy those that cost less than ee Aeesi0
your current number of credits, and

G12 COMPUTE

AUGUST

REVIEWS

FANTASTIC FIGHTS ¢ REALISTIC RACING
PC TRANSLATOR ¢ BALLISTIC BASIC « D

RAGONS AT WAR

magine yourself behind the wheel

ofa Ferrari, cruising down a Grand

Prix racetrack at 175 mph. Elec-

tronic Arts’ Ferrari Formula One is
the next best thing to actually driving
this powerful machine. It brings all
the action and thrill of Grand Prix
racing right to your computer. And
you don’t have to be an expert race
driver to play!

There are two playing options in
this game. You can simply drive the
Ferrari around the racetrack without
worrying about things like schedules
or season standings. This option is the
easier one to learn, since it requires
that you read only a short set of in-
structions. As the game starts, there’s
a short demo to help you get acquaint-
ed quickly with the game. The minute
you feel comfortable, just move your
joystick, and off you go!

For those of you who want a real
challenge, there’s the second option.
This is just like real Grand Prix rac-
ing. You design, modify, and test your
own Ferrari. There are deadlines and
schedules,to keep. You tell the pit
crew what to do to your Ferrari. Even
though there are numerous rules con-
cerning designing and setting specifi-
cations for your car, don’t worry
about accidentally modifying a pa-
rameter that would violate Grand
Prix racing’s rules. The software won’t
let you.

I found the manual to be well
written, and the steps are easy to fol-

low for the second play option. If you
do select this challenging second op-
tion, be prepared to learn the track in
limited time. You must also find the
best settings for your Ferrari’s peak
performance and the best way to con-
serve fuel for the actual race.

Like a real Grand Prix season,

1991

Big Blue Reader 128/64
Read & Write IBM PC Disks!

Big Blue Reader 128/64 is a fast, easy-to-use, menu driven program
for novice and expert alike. Transfers word processing, text, ASCII, and
binary files between Commodore 64/128 and IBM PC compatible 360K
5.25" and 720K 3.5" disks. Includes both C64 & C1 :
Requires 1571 or 1581 Disk Drive. Does not work using 1541.

BBR 128 Version 3.1 upgrade, $18+ original BBR disk.

Big Blue Reader 128/64 only $44.95

Bible Search 3.1

The only Bible Study Program with:

1) Entire Old and New Testament on (4) 1541/71 or (2) 1581 disks.

2) An Exhaustive English Concordance on (2) 1541/71 or (1) 1581

disks; includes more than 700,000+ references.
3) Incredible five (5) second look-up time, per/ word, per/disk.
4) Instant, automatic spell checking of more than 12,800 words.
5) Boolean Search operators including AND, OR & NOT logic.
6) Search entire Bible in 5 seconds with 1581 or Hard Drive (v3.5).
7) A Money Back Guarantee!
Includes: Easy-to-use, C64 and C128 (40/80 column) programs,
printer and disk output, users guide, disk case, and more.

ex Available on (7) 1541/71, or (4) 1581 disks. (Demo disk $5)

KJV $49.95 vxvevrveve NIV $59.95
tx Any questions? Call or write for more information.
tx NOW Available! AMIGA Bible Search

Order by check, money order, or COD. US Funds only.
tw FREE shipping in North America. No Credit Card orders.
Foreign orders add $5 S/H ($12 whole Bible)

SOGWAP Software ® (219)724-3900

115 Bellmont Road; Decatur, Indiana 46733

REVIEWS

[Freeware For Commopore 64/128 al
| GAMES, GAMES, GAMES!

71(6102) ADVENTURE ROAD / 1- Contains 4 adventure games: Scary, Africa, Adventure & more,

71 (6123) ADVENTURE ROAD /2- 10 text/graphic adventure games including SLEUTH.

“J(6124) ADVENTURE ROAD /3- 8 text/graphic adventure games including HACKER,

716049) 0-128 GAMES /1- 40 col- -

umn Galacte, Castle and Dansels. | Call or write for FREE catalog of
1,000's of programs for your PC!

80 column Star Trek.
(800) 233-24

71 (6054) C-128 GAMES / 2-80 col-
Mon - Fri 9am - 5pm PST

umn Norad, Wargames, not Lunar |
Land. Print Spock&Kirk.

| 71 (6088) C-64 GAMES ! 1 - Action |
games like Robbers, Whirly Bird, Blue Thunder & more.

| 7 (6089) C-64 GAMES / 2- Lotto, Attack Force, Star Trek, Joust, Derby, Defcon & more. |
71 (6097) IN THE MALL / 1 - Contains 14 arcade games, Try your skill on these gems.

71 (6099) IN THE MALL | 2-Contains 14 arcade games. Includes Moondog, Skiing, & more. |

71 (6142) IN THE MALL | 3- 12 more arcade games including BOULDER DASH and KANGA,
| (6100) in THE PITS | 1- Contains 7 car games. Includes Dragster, Dodge Cars & more
71 (6101) LADY LUCK | 1- Contains 10 casino games. Roulette, Craps, BJ, Poker & more.
| 71 (6202) LADY LUCK | 2- 10 gambling games including ONE ARMED BANDIT, and 21
7] (6203) LADY LUCK '3- 17 gambling games including DODGE CITY POKER and KENO.
| 71 (6098) ON THE BOARDS / 1- Contains 11 board games. Includes Yahtzee, Battleship & more
| 71 (6119) ON THE BOARDS / 2- 12 board and card games including battleship and chess.

1 (6120) ON THE BOARDS / 3- 17 more board and card games including CRIBBAGE and BINGO.
| 71 (6118) PUB/BOARD GAMES - Darts, Bowling, Pool, Checkers, Backgammon, Chess, and more,
71 (6204) THE FINAL FRONTIER / 1 - 10 action filled space games including METEOR SHOWER,

| 7) (6206) THE FINAL FRONTIER /3- 18 action filled space games including CANYON RUNNER
16207) THE FINAL FRONTIER / 4- 18 action filled space games including SPACE DEFENDER,
71 (6104) THE SPORTING LIFE - Contains Golf, Miniature Golf, Baseball 64, Boxing and Trap.
=] (6208) THE SPORTING LIFE / 2- 19 games relating to sports including BOWLING and BOXING.
(610) VICTORY SOFTWARE 1-The is dso shareware games Veto Sofware,

‘To order, please check the desired disk and include $2.99 for each disk ordered,
Include shipping and handling of $4 per order. CA residents add 7% sales tax.
| Buy 5 dlaks and get the 6th ‘one free!

|Please send order, payment, name, address and daytime phone # to:

| s We accept Check, MO,
| Laradise Sylware

|
|
|
Mastercard & Visa. |
|
|

Sorry—No COD's.
| Hours: Mon-Fri, 9am-Spm PST

7657 Winnetka Ave, Ste 328-C, Winnetka CA 91306

Circle Reader Service Number 129

the program isn’t a single race but a
whole series. Each race is at a different
track and consists of several practice
sessions before the actual race.

The manual helps you design and
set all the specifications on your Fer-
rari. I found the manual’s panel dia-
grams to be extremely helpful in
designing and setting the car’s specifi-
cations for the big race. Fiorano is the
main base for setting up and modify-
ing your Ferrari. Here, you set the

BIG BLUE READER

while back, there was a rumor
circulating that someone was de-
veloping an interface that would
allow the 1581 to be used with a
PC—a feasible but rather expensive
proposition when you consider that
most built-in 32-inch drives cost less
than half the street price of the 1581.
The February 1988 issue of

controls for the race, such as skill level
and the race’s length. From this point,
you can go to the garage to set major
system components, such as the en-
gine or suspension, or to the wind tun-
nel to adjust the Ferrari’s wings. You
can also fine-tune suspension and
wing adjustments at the pit.

If you know little about setting up
a racing Ferrari, don’t worry. The pro-
gram has a character named Mauro to
assist you in making these decisions.
His suggestions will always appear in
the panels. It’s up to you whether to
accept his suggestions or to come up
with your own ideas after reading the
manual’s detailed descriptions on
each setting.

After you’ve tested your Ferrari
and made all the necessary modifica-
tions, it’s time for the big race. With a

push of a joystick, you’re off to your
first race! Just use the joystick to steer,
accelerate, and brake. The engine’s
roar makes you feel as though you’re
actually at a Grand Prix, sitting be-
hind the wheel of a high-speed racer.
Overall, this software program is
entertaining and challenging. Even
though I have yet to become the series
champion, I still have a lot of fun
driving in Ferrari Formula One.

CHRIS STAWASZ,

Commodore 64 or 128, joystick—$29.95

Electronic Arts

1820 Gateway Dr.
San Mateo, CA 94404
(415) 571-7171

Circle Reader Service Number 311

COMPUTE! featured a BASIC pro-
gram that allowed the 1571 disk drive
to read and write PC disks. This pro-
gram worked well, but it did have
some drawbacks. Among its most
troubling foibles was the fact that it
seemed to choke on large files.

I discovered this last fall as my
wife was typing her grandfather’s
memoirs on my 64 and I was then
typesetting them on my PC. Long
chapters caused the program to crash
or to become twitchy. Three chapters
simply refused to be translated, no
matter what I did.

I decided to turn to SOGWAP’s
Big Blue Reader to see what it could
do. Having spoken to the software’s
developer on the phone and knowing
he was a capable programmer, it came
as no surprise that Big Blue Reader

AUGUST

PY Al COMPUTE G43

solved the whole problem, providing
rapid conversion between formats
with no apparent problems.

More and more Commodore fans
own both PCs and 64s or 128s. Using
a program like Big Blue Reader turns
this motley collection of operating
systems and hardware into an effi-
cient productivity machine.

The latest version of Big Blue can
operate with the 1581 drive, translat-
ing files from 720K 31-inch PC disks
to 1581-compatible disks.

All this talk about translating files
between formats can lead to some
confusion, so let me explain that Big
Blue Reader is not an emulator. The
ability to convert a file from a PC disk
to a Commodore disk doesn’t mean
that you’ll be able to run WordPerfect
on your Commodore. However, you

REVIEWS

The ability to translate files from
one disk format to another is the most
important task of this software, but
it’s not the only useful feature. It will
display the directory of a Commodore
or a PC disk, format either type of
disk, and display or print files in

ROBERT BIXBY

drive—$44.95

either format. It can convert files be- drive—$29.95
tween Commodore ASCII and the
SOGWAP SOFTWARE
ASCII that the rest of the world uses. 115 Bellmont Rd.
Although Big Blue Reader 128 Decatur, IN 46733
comes with a version for the 64, 128 (219) 724-3900
Circle Reader Service Number 312

users should use the 128 version be-
cause it supports CP/M and Commo-
dore RAM expansion units and
operates with one or two disk drives
(one of which must be a 1571 ora
1581). Also, it works in 40- or 80-
column mode. In 80-column mode, it
operates at the full 2-~MHz clock
speed.

REAL FAST
G4 BASIC

uses burst mode to enhance the speed
of the file-transfer process.

———_H?X\__-

Commodore 128, 1571 or 1581 disk
Commodore 64, 1571 or 1581 disk

he 64’s resident BASIC is easy
to learn and use, but it has its

G A ZE T T E comwmopore 64/128

can save a WordPerfect file on a PC
disk as pure ASCII and transfer it to
a Commodore disk for editing or
printing with any Commodore word
processor of your choice.

Yes, save time and money! Subscribe to the Gazette
Disk and get all the exciting, fun-filled Gazette pro-
grams for your Commodore 64 or 128—already on
disk!

Subscribe today, and month after month you'll
get all the latest, most challenging, and fascinating
programs published in the corresponding issue of
COMPUTE.

New on the Gazette Disk! In addition to the
programs that appear in the magazine, you'll also
get outstanding bonus programs. These programs,
which are often too large to offer as type-ins, are
available only on disk—they appear nowhere else.

As another Gazette Disk extra, check out

When Big Blue Reader 128
copies, it loads files into memory and
then copies them to the new disk.
This feature eliminates all unneces-
sary disk swapping. Furthermore, it

drawbacks. BASIC provides the
programmer with few tools to de-
velop compact, powerful code.
In addition, BASIC programs
tend to run slowly because they’re in-

“Gazette Gallery,” where each month we present the
very best in original 64 and 128 artwork.

So don’t waste another moment. Subscribe to-
day to COMPUTE’s Gazette Disk and get 12 issues
for only $49.95. You save almost 60% off the single-
issue price. Clip or photocopy and mail completed
coupon today.

Individual issues of the disk are available for
$9.95 (plus $2.00 shipping and handling) by writing
to COMPUTE, 324 West Wendover Avenue, Suite
200, Greensboro, North Carolina 27408.

YES! Start my one-year subscription
to COMPUTE’s Gazette Disk right away
for only $49.95.*

C Payment enclosed (check or money order)

OCharge OMasterCard O Visa

Acct. No. Exp. Date
Signature

Name

Address

Ci

Stata] ZIP/
Province Postal Code

Mail to COMPUTE's Gazette Disk, P.O. Box 3250, Harlan, !A 51593-2430
“Residents of NC and NY, please add appropriate sales tax for your area. Canadian

REVIEWS

terpreted. That means before an in-
struction can be executed, it must first
be figured out by additional low-level
software. Compiling a program—con-
verting it to machine code for speed—
creates an awkward additional step. It
means keeping track of at least one
additional file and may increase the
program size. Writing in machine
code combats the sparseness of com-
mands and slow runtimes, but it leads
to even more difficulties during the
debugging and revising processes.

For years attempts have been
made to redress BASIC’s speed defi-
ciencies. One of the latest is Real Fast
64 BASIC (RFB) from Real R & D. It
is interpreted, like the resident BASIC
2.0, but it precompiles GOSUBs and
GOTOs for speed. It adds more than
90 new commands, allows labels to
take the place of line numbers, pro-
vides the user with the option to cre-
ate custom commands, doesn’t
interfere with BASIC 2.0, and is even
compatible with COMPUTE'’s Meta-
BASIC enhancement.

RFB includes a powerful syntax
for machine language-like control of
memory registers and control of bit
settings within registers. For brevity,
there are single-character commands.
Error trapping is available to guard
against results that might otherwise
crash your program. RFB is also
smart enough to be extensible, which
means that the programmer can piece
together preexisting commands and
functions to build new commands.

On the downside, RFB is almost
generic in design, with no provision
made for 64 graphics (other than sprite
commands) or sound. Also, some parts
of the documentation make readers
stop and review what they've just read.
Lack of clarity isn’t a major problem,
however, and programming examples
do much to make up for any gaps in
immediate comprehension.

On balance, I was mightily im-
pressed; I recommend Real Fast 64
BASIC as a sophisticated alternative
language for serious 64 programmers.
BRUCE BOWDEN

WAR OF THE
LANGE

SI’s latest addition to the Ad-

vanced Dungeons & Dragons

(AD & D) series is a war game

set in the Dragonlance world.
War of the Lance is the perfect combi-
nation of an original war game system
and a detailed scenario to keep it fun
to play and exciting.

The game system has many
unique features such as diplomacy,
side quests for champions, and magi-
cal items such as dragon orbs to aid
your armies. The setting and back-
ground of the game far outweigh its
technical aspects.

War of the Lance is set on the
continent of Ansalon in the year 348,
and evil dragons have returned. Play-
ers control the Whitestone forces, who
are the good guys. The computer or
another player controls the Highlord
armies, which consist mostly of drag-
ons and Draconians. The action starts
just as the Highlord armies are invad-
ing Silvanestri.

Highlord starts with an advan-
tage over Whitestone, since it consists
of four nations to Whitestone’s two.
To make matters worse, Whitestone’s
dragons don’t enter the game until it’s
more than half over. This makes the
game more than a challenge, even for
experienced war gamers.

The game’s history goes back to
an earlier time, however. It goes back
a millennium, when dragons were

out to find these lost artifacts and
learn how to use them. If an army can
find a dragon orb, for example, it can
use it to make dragons retreat from
the battlefield.

The appearance of reinforce-
ments during certain phases of the
game is a feature that adds suspense.
Units may be activated at random.
For example, the Highlord armies re-
ceive more Draconian units at almost
every turn. Anytime toward the end
of the game, undead infantry and fly-
ing cities, called citadels, will appear.
On the Whitestone side, good dragons
and Solamnic knights are some of the
units that might join its forces.

A more direct way of gaining
units is through alliances. The White-
stones and Highlords have unique
methods of diplomacy. The White-
stones send diplomats to the countries
and use gentle persuasion; the High-
lords declare war on a country ifit
isn’t an ally. Such a declaration is
usually sufficient to make a country
join the Highlords.

Movement and combat phases
are similar to those of other war
games. The side that has the initiative
moves all of its troops either by
ground, aerial, or naval transport. At-
tack orders are given, and the combat
begins. When one side’s attacks are
finished, the other side starts its turn.
There are some interesting twists,
though—dwarves are the only soldiers
who can go through mountains, and
elves fight better in forests.

Not only is War of the Lance a
war game, but it’s a role-playing game.
It’s also a lot of fun. The extensive
background adds spice that’s missing
in many games. The graphics are de-
cent, and there’s some animation. The
instruction book is also very clear and
precise. The game is fairly complicat-
ed, though, and it can be slow-moving
at times. But considering how much
fun it is to play, once you've finally
mastered War of the Lance, you'll re-
alize it was worth the effort.

BROCK FANNING

banished from Ansalon. During that Commodore 64 or 128—$39.95
(Commouare Gi ors1 28 $30.95 time, magical artifacts were created to STRATEGIC SIMULATIONS
REALR &D defeat the dragons. After the dragons Distributed by Electronic Arts
ia 87:98 St ‘ disappeared, the artifacts were lost 1820 Gateway Dr.
Ss and the magical secrets forgotten. OAL Saal
Circle Reader Service Number 313 When the game begins, the White- Circle Reader Service Number 314 a
stone and Highlord champions are
AUGUST 1991 COMPUTE G5

a
3
r4
9°
a
°
=
=
8
Tt
-
-
ua
N
i
co)

peeve OK

OU ESS atl

What's the Score?

I’m trying to write a machine lan-
guage game. I have everything worked
out except for the score, which could
be as high as 900. How do I print this
out to the screen? What I’ve done
with single characters is to load the ac-
cumulator with the ASCII value and
JSR to CHROUT. But how do you
decode a number that’s stored in low-
byte/high-byte format?

DAVID HOLT
RICHMOND, VA.

Commodore BASIC has provisions for
printing two-byte numbers in ASCII (a
major purpose is for line numbers).
From 64 machine code, simply store
the low byte in the X register and the
high byte in the A register (Accumula-
tor); then JSR to $BDCD (48589). On
the 128, select a bank with BASIC
ROM switched in, load the same regis-
ters, and JSR to $8E32 (36402). The
decimal equivalent will be printed at
the cursor. On the 64, to get the ad-
dress of the ASCII string without print-
ing, start with .X and .A loaded as

above and use this code:

STA $62 ;STORE THE HIGH BYTE

STX $63 ;STORE THE LOW BYTE

LDX #890

SEC

JSR $BC49 ;CONVERT TO A
FLOATING-POINT
NUMBER IS FAC1

JSR $BDDF ;CONVERT TO AN ASCII
STRING

On the 128, with BASIC switched in,
use

STA $64 ;STORE THE HIGH BYTE

STX $65 ;STORE THE LOW BYTE

LDX #$90

SEC

JSR $8C75_ ;CONVERTTO A
FLOATING-POINT
NUMBER IS FACI

JSR $8E44 ;CONVERT TO AN ASCII
STRING

In both cases, the low byte of the ad-
dress of the ASCII string is returned in

Gi6é COMPUTE

ONS

AUGUST

F ROM Oo UR
.A; the high byte, in .Y. At the end of
the string is a zero byte.

Which 128?

I’ve been thinking about buying a 128,
but I notice that there were two mod-

els produced: the original 128 and the

128-D. What’s the difference between
the two?

Also, the sound on my 64 seems
to have gone kaput. It was working
fine before I moved it to another
room. I’ve checked out the wires and
the monitor, and everything seems
fine. Do you think the sound chips
have died?

JOHN J, REIMER
WILLIAMS LAKE, BC
CANADA

The 128-D differs from the original
128 in that it has an internally mount-
ed disk drive. The 128-D also has a
separate keyboard at the end ofa very
short cable and an upgraded 80-col-
umn display chip with more video
memory. (It has twice the vertical reso-
lution of the standard 128, which is not
a big advantage for most users.) Nei-
ther of the 128 models is in production,
but a few dealers still have 128-Ds in
stock. (See recent ads in this maga-
zine.) Used and reconditioned ones
can be found, but with a built-in 1571
disk drive included, expect to pay more

fora 128-D.

As for your second question, it’s
most likely that your SID (Sound In-
terface Device) chip has gone to that
big socket in the sky. But since it hap-
pened during a move, it might have
come loose from its socket if the com-
puter got bumped. Get a technician to
look at it or, if you want to check it
yourself, open the case, remove the RF
shield, and firmly seat the chip in its
socket. It should be the chip marked
6581.

Write It In

It’s hard to find COMPUTE with the
Gazette section in it. Since my main
interest is the Commodore 128, I am
entering a subscription to Gazette. As
the order form doesn’t ask me to spec-
ify which section I want, I’m going to

1991

Rae ANS DEGREES

write in that I want Gazette. I look
forward to getting COMPUTE, as it’s
an excellent magazine.

But COMPUTE is more than just
a magazine. It’s a large part of any
computer user’s support network. As
other support for the 64 and 128
wanes, I hope that COMPUTE will
continue to be an important part of
the Commodore information net-
work. Your format is great, and I en-
joy learning about other computer
systems.

PAUL ARMSTRONG.
CITRUS HEIGHTS, CA.

Thanks for the kind words, and we'll
do our best to continue supplying read-
ers with information about 8-bit Com-
modore computers and other systems
as well. In case you didn’t know, Ga-
zette is now back in COMPUTE on
many newsstands. To ensure that you
get the Gazette edition that includes
the type-in programs when you sub-
scribe to COMPUTE, write Gazette
across the subscription card.

ROM Upgrades

I've noticed several ads for ROM up-
grades for the 1571 and the 128, What
do they do? Also, how do I go about
submitting programs to your
magazine?

GARY R. PAYNTER
PUTNAM VALLEY, NY

Just as computer sofiware often con-
tains errors, the same holds true for the
programs stored in ROM that make a
computer or disk drive work. One of
the first bugs discovered in the 128 was
the infamous Shift Lock Q problem. It
printed a lowercase Q whenever the
Shift Lock key was depressed. There
have been other problems, though less
frequently encountered. Apart from the
annoyance of a 1571's sputtering for
minutes while trying to decide whether
a disk is single or double sided, it also
inherited the infamous Save-with-
Replace bug. Volumes have been writ-
ten about how the use of SAVE
“@.filename”,8, originally intended
Jor replacing files without going
through the longer process of scratch-

FEEDBACK

ing first and then saving, will some-
times trash programs. (Note: Placing a
0 after the @ sign usually corrects this
problem.) ROM upgrades supply fixes
to these and other problems. Upgrades
usually are for the better, but ofien we
discover that upgrades introduce their
own problems.

Now to answer your second ques-
tion. When submitting a program for
publication, save it twice to disk along
with two copies of the documentation
in either SpeedScript or PET ASCII
format. Enclose a printout of the docu-
mentation and mail it to Gazette
Submissions Reviewer, COMPUTE
Publications, 324 West Wendover Ave-
nue, Suite 200, Greensboro, North
Carolina 27408. We encourage sub-
missions of original games, utilities,
and productivity programs for the 64
and 128, and we pay competitive
rates for those we publish. Ifa pro-
gram is too large to offer as a type-
in program, we possibly can use it as
a Gazette Disk bonus.

COMPUTE’s

Empty Socket

I’ve noticed several ads for ROM up-
grades for the 1571 and the 128. I’ve
also noticed an empty socket inside
my 128, What are these for? I am also
interested in EPROM programming. I
would appreciate any information you
have on these subjects.

GARY R. PAYNTER
PUTNAM VALLEY, NY

That spare 28-pin socket which you
noticed in the 128 can hold a custom
EPROM (Erasable Programmable
Read Only Memory) chip pro-
grammed with your own sofiware.
However, getting at it means voiding
your warranty (if still in effect) and un-
soldering the metal heat-sink/RFI
shield. The socket can hold either a
16K or a 32K chip. If you insert a chip
there, it will be recognized by the com-
puter and treated like an external car-
tridge. Here are a few details.

There are two areas of 128 memo-
ry in which cartridges appear. They

are the mid-space ($8000-$BFFF) and
the high-space ($C000-$F FFF). So up
to 32K of cartridge memory can be
switched into 128 memory space
simultaneously.

Cartridge memory can be banked
in through simple manipulation of the
Memory Management Unit. (See your
Commodore 128 Programmer’s Ref-
erence Guide for details.) You can also
program in a power-up autostart
sequence.

To check for cartridges when the
computer powers up, the system con-
ducts a poll of all possible cartridge
areas (internal or external, mid-space
or high-space). This is done during the
system RESET routine using asub-
routine called POLL, which is located
at $E242-E2BB in the Kernal (version
318020-03). In each of the cartridge
areas, POLL checks for a special car-
tridge key string that begins seven
bytes from the start of the area. For ex-
ample, in the mid-space ($8000-
$BFFF), POLL will start checking at

SpeedScript Disk

A powerful word processing

package for Commodore 64

and 128 owners

A Great Deal for Commodore

* SpeedScript for the 64

° SpeedScript 128—80-column version

¢ Spelling checkers

* Mail merge

¢ Date-and-time stamp

* 80-column preview for the 64

¢ Turbo save and load

¢ Plus more than a dozen other SpeedScript
support utilities all on one disk (includin

full documentation)

: YES! send me

SpeedScript Disk.

copies of COMPUTE'’s

| I've enclosed $11.95 plus $2.00 postage and handling. (Outside
U.S. and Canada add $1.00 for surface mail or $3.00 for

airmail.)

: ORDER NOW!

| Name
| Address
| City

Amount
Sales Tax"
Total

State

Mail personal check or money order to

Commodore SpeedScript Disk
| 324 W. Wendover Ave., Ste. 200
Greensboro, NC 27408

| Residents of North Carolina and New York, add appropriate tax for your area. Canadian
orders, add 7'% good and services tax.

Please allow 4-6 weeks for delivery, Program available only on 5%4-inch disks.

a
3
rs
a
°
=
=
8
MJ
f=
je
oy
N
I
6

FUNctional
Weekend

Projects for

C-64 Ultra-Users]

* Automotive Duell/Tach Diagnostics

Pro

* Home Sentry - Residential Security
On Disk with Interface Schematics $20.00

Send Check or Money Order to:

CREATIVE SPECIALTIES
P. O. Box 7361
Richmond, VA 23221
* Allow 34 Weeks for Delivery -

Circle Reader Service Number 104

FEEDBACK

far exceeds
Kit #3 Part #DIA15 C-64

¥ computer.
bbister-packed" for government PXs worldwide, this series is now available to you. Total cost 5 per kit
Purchasing chips on an individual basis, eee

Kit #4 Part #DIA16 C-64 Kit #5 Part #DIA17 SA /TBTG
Control Port

Flashing colors + Game Sound Keyboard

: car problems:

problems lors « Sera Seven preter
Contains: IC #PLA/S06114, Diagnos- Cosel 1 #bSc0 IC at OF

Disk with 9 programs, Bog it Bau 8 ay

Problems + Symptoms: Drve runs
Motor wont stp + Readers

Containg: IC #6502, 106522,
801229 Fuse, Cp puler, Basic sche-

bepiegesppai re Dig.
Test Disk with 9 pri

SO vale fo oh $93.95 'A'$70.10 value for ony $29.95

THE, GRAPEVINE GROUP, INC.

wm Ce

Fax 914-357-6243

‘Chestnut St., Suffern, NY 10901
oes Faas oe S1ko7 Bee

Circle Reader Service Number 128

Heart Attack.
Fight it with a
Memorial gift to
the American

Heart Association.

THE AMERICAN HEART
ASSQ@IATION
MEMORIAL PRGGRAMe

SF
OS axe SIRS

$
@ american Heart Association

This space provided as a public service.

$8007. The cartridge key string on the
128 consists of the letters CBM. (The
64 checks for CBM80.)

In addition, the cartridge key con-
tains cold and warm start entry points
and a cartridge ID. If the CBM string
is found, the POLL routine “logs in”
the cartridge by recording its ID byte
in a special table. This table is called
the Physical Address Table, and it is
located at $0AC1-$0AC4.

After storing an ID in the Physical
Address Table and before checking the
next area, POLL checks to see if the
cartridge ID equals $01. Any cartridge
with this ID is considered to be an
autostart cartridge. If this ID is detect-
ed, POLL immediately switches in the
cartridge area and jumps to a subrou-
tine (JSR) for the cold start entry in the
‘cartridge key.

The cold start entry is an entry
point, not a vector. POLL JSRs direct-
ly to the cold start entry point, expect-
ing to encounter executable machine
code there. Normally this will be a
jump (JMP) to the actual start of the
cartridge code. The warm start entry is
supposed to be set up the same way,
but it’s never used by the system.

Since POLL does a JSR to an
autostart cartridge rather than jump-
ing to it, the cartridge has a choice of
whether it wants to return to POLL or
not. If all the cartridge needs to do at
this point is some initialization, it can
do so and then return to POLL via an
RTS command. If the cartridge wants
to take over completely, it can do so by
simply never returning to POLL.

The details of EPROM/cartridge
use on the 128 are more involved than
those for the 64, but they allow for
more versatility.

Defunct Fonts

For the past three months I have been
trying without success to obtain a
copy of Fontmaster for my 128. I have
approached U.K. suppliers without
success. I have been told it isa U.S.
product and used to be advertised reg-
ularly in Gazette. Can you help me lo-
cate a copy, or has the software been
withdrawn?

GEORGE H. WEST
STOCKPORT, CHESHIRE
ENGLAND

Fontmaster II and Fontmaster 128
were produced by Xetec in Salina,
Kansas, but a company spokesperson
says the products are no longer avail-
able. If you use GEOS and want to cre-
ate fonts for your 128, you might try
GEOS Font Editor (Comm-Plex Soft-
ware, 6782 Junction Road, Pavilion,
New York 14525; $21.50). This pro-
gram lets you create a new point size
of any existing font and places 49 dif-
Serent fonts at your fingertips when
writing a geoWrite document.
Another good font program is
Ultrafont+, 1 of 14 utilities on the

Gazette Power Tools disk ($9.95).

ML for Beginners
I have recently started programming
and have moved from BASIC to ma-
chine language. Commodore 64 Pro-
grammer’s Reference Guide is the
only book I have for ML program-
ming. Is there a good book that helps
beginners? Could you give me the
name of a good assembler? Are there
other languages available for the 64? If
so, which ones?

Finally, I have noticed a few un-
finished programs in Programmer's
Guide. On page 111, I cannot find the

=
end of the last program on the page. Is
there something I’m not doing, or has
it been left out?

THOMAS UNDERHILL
SELANGOR, MALAYSIA

COMPUTE Books sells several begin-
ner machine language books for the 64
and 128. Look for Machine Language
for Beginners ($16.95) and The Sec-
ond Book of Machine Language
($16.95). Both of these contain listings
for machine language assemblers.
COMPUTE Books also has valuable
tools and references such as Mapping
the Commodore 64 ($18.95) by Shel-
don Leemon, Mapping the Commo-
dore 128 ($19.95) by Ottis R. Cowper,
and Machine Language Routines for
the Commodore 64/128 ($18.95) by
Todd D. Heimarck and Patrick Par-
ish. To order, write to COMPUTE
Books, c/o CCC, 2500 McClellan Ave-
nue, Pennsauken, New Jersey 08109.
Please add $2.00 shipping and han-
dling charges for U.S. orders, $4.00 for
Canadian orders, and $6.00 for all
others. Also, watch for special book of-
fers in COMPUTE.

All of the major computer lan-
guages are available for the 64 and
128. A partial list includes C, Pascal,
COBOL, Forth, FORTRAN, Lisp, and
Logo. One source of good-quality lan-
guages for the 8-bit Commodore line is
Abacus Software, P.O. Box 7211,
Grand Rapids, Michigan 49510.

The little program at the bottom
of page 111 of Commodore 64 Pro-
grammer’s Reference Guide redefines
the character associated with the letter
T, but only after you've moved your
character set according to the longer
program on the previous page. a

Gis COMPUTE

AUGUST

We Oakpal

€x€c

See

VAN DER A

ommodore owners who use

GEOS have a real advantage

when the name of the game is

graphics. They can call up two
star players, geoPaint, one of the bet-
ter bitmap manipulation applications,
and geoPublish, probably the best of
the desktop publishing packages.

There is very little that these two
programs can’t accomplish toward
turning a document into a winner.
From cut and paste to closed splines
and scaled fonts, the results can be im-
pressive. Documents can even be
dumped to a laser printer for results
that will score a hit every time.

Of course, every program strikes
out once in a while, and the GEOS
team has its holes in the lineup as
well. The graphics objects created in
geoPublish are not actually stored as
bitmaps and are essentially unalter-
able at the pixel level, a convenience
taken for granted in geoPaint. With
Paint Pages, you can convert a geo-
Publish page into a geoPaint bitmap
where pixel editing can be done. But
there’s no way to reverse the journey
except by creating relatively small
photo scraps and importing them one
at a time back into geoPublish.

Even with the pagewide screen of
geoPaint 128, this process will quickly
run out the clock, and you'll still be
left with the task of fitting the scraps
back together. Sometimes it’s easier
just to patch an offending graphic
with opaque, borderless white boxes
and hope no one will notice.

It would also be nice if there were
a way to copy a graphics object from
one location to another on the geo-
Publish page. If you’ve ever tried to
draw three identical curves using the
spline tool, you’ll know what I mean.
While you can use the group select
tool to move even a fairly complicat-
ed set of objects, there’s no copy func-
tion built in. Your only recourse again
is to convert the whole business into
geoPaint.

GEOS users have a great second
string to call on, though. There are a
growing number of talented, imagina-
tive programmers ready in the bullpen

to save the game. They’ve written util-
ities and desk accessories to fill in the
gaps in the Berkeley lineup, programs
that all GEOS users should have
working for them. Some of these are
available on QuantumLink or other
BBSs, while one of the best showed up
in this column a year and a half ago.
The small size of photo scraps is
annoying with the limitations of a 40-
column screen. Even with GEOS
128’s 80-column version of the photo
manager and geoPaint, the scraps are
often too small for the job at hand.
Terry Van Camp of Strongsville,

WAYS TO
WIN THE

Ohio, has created Scrap It, a utility
which neatly pinch-hits for the edit
function in geoPaint. It lets you clip
any size scrap you want from a geo-
Paint document. Scrap It displays a
preview-style representation of a page
from either drive and provides you
with a set of brackets to set off any
portion of it to be copied.

Need a full-page-wide letterhead
for geoWrite but use the 40-column
screen? No problem for Scrap It.
Want to clip a usable chunk out of the
middle of a ComputerEyes bitmap? It
may overfill the geoPaint window, but
it can’t escape Scrap It!

There is no limit to the size of the
scrap you create—the whole page can
be grabbed this way. The only applica-
tion that will accept a scrap that large,
however, is geoPublish. But you can
now create a graphics object using all

AUGUST

R K

those great tools in geoPublish, use
Paint Pages to convert it to geoPaint,
detail and clean up the bitmap, and
then use Scrap It to port it back into
geoPublish. Scrap It is available from
Quantum Link; it’s shareware, so you
should send a user fee of $5 to Van
Camp if you find his program useful.
This utility is well worth that small
amount of money.

Copying an object or group of ob-
jects in geoPublish is made possible by
a clever little desk accessory published
in this column last year (January
1990). It’s called Screen Grabber, and
with it any part of the screen is avail-
able for copying to a photo scrap.
While there is only a limited need for
bitmaps of sections of the deskTop or
the ruler in geoWrite, bitmap copies
of graphics objects in geoPublish allow
you to import any number of dupli-
cates all over the page. A graphics
construction you’ve layered together
from various tools and fonts might be
too complex for the group select func-
tion, but Screen Grabber simply
copies the resulting hi-res image on
your screen and turns the whole thing
into a photo scrap that you can move
around, scale up or down, or copy at
will. Screen Grabber was written by
Richard A. Rardin and appeared in
the GEOS column in the January
1990 issue of COMPUTE!’s Gazette.

Anyone who plays the graphics
game with GEOS needs these two files
in the game plan. In my desktop pub-
lishing projects, I’ve found them to be
invaluable. There are plenty of other
great utilities out there, programs
which offer the GEOS user new capa-
bilities with the system. If you’ve
found one that really hits a home run
for you, let us know, and we'll pass the
word along. In order for a program to
be discussed, however, we must have
complete information about the au-
thor and whether it’s public domain,
shareware, or available for sale. Write
to me in care of this column.

Steve Vander Ark can also be reached
on QuantumLink by sending E-mail
to him. His handle is SteveV 14. 5

UE Oo ma COMPUTE G19

a
3
ra
°
a
Ce)
=
=
9
3)
uw
-
-
i
S|
|
o)

MACHINE LANGUAGE

—

cel}

MS BSUS tate Ror sl

fl have a group of users interested
in machine language, I sometimes
publicly write a simple program.
Beginners might not follow all the
details of coding, but they will be pre-
sented with a few simple ideas: writ-
ing in machine language is a logical
process no different from writing in
another language, no magic is in-
volved, knowledge of hexadecimal
numbers and machine language mon-
itors is required, and machine lan-
guage programs can be dazzling.

If you are on the Commodore
128, use the built-in machine language
monitor (MLM). Invoke it by pressing
Shift-f8. Most other machines will
need to load Supermon+64. Either
way, we're invoking a new way of
communicating with the computer.
Instead of POKE and PEEK, we now
can access more efficient commands.

If we were writing in BASIC, a
place would be set aside for the pro-
gram automatically. But with ML
we'll have to choose a spot. This will
be a short program, so it will fit al-
most anywhere. This time, I’ll pick
address 8192 (decimal).

Enter A +8192... but don’t
press Return yet. We have said to
the computer, “We wish to write (as-
semble) an instruction, to be located
at decimal address 8192.” The com-
puter prefers a different style of
number, hexadecimal, but it will ac-
cept the decimal value if you prefix
it with a plus sign. Continue the line
so that itreadsA +8192JSR...
without pressing the Return key. We
can now explain that JSR is the ab-
breviation (or mnemonic) for Jump
SubRoutine, an instruction much
like BASIC’s GOSUB. It will call a
subroutine, which will do some work
for you, and then return to allow
your program to continue. The sub-
routine we want is the one that will
read a character from the keyboard.
This routine is located at address
$FFE4 (hexadecimal). The character
will be stored in the processor chip
in an area called the A register, or the
Accumulator. The dollar sign signi-
fies a hexadecimal number.

G20 COMPUTE

AUGUST

ESD)

Complete the line to read A
+8192 JSR $FFE4 but don’t press
Return yet. Note that we have asked
the MLM to generate an instruction to
go and fetch a character. Take a good
look at this line; when you press Re-
turn, it will change dramatically.

AC
ID
BASIC

Press Return. The line now says
A 2000 20 E4 FF JSR $FFE4. That’s
more or less what we entered, with
some extra material. The decimal ad-
dress 8192 has been changed to hexa-
decimal 2000, which the computer
prefers. The translated instruction has
become the three (hex) bytes 20 E4
FF, with the original printed at right.

The computer has calculated
where the next instruction should go
and has generated the first part of the
line: A 2003. We’ve taken a character
from the keyboard buffer. What
should we do with it? We'll print it
several times. We'll also need to count
how many times we print the charac-
ter. We'll use an area in the chip called
the X register to do the counting. Start
by setting the X register to zero with
LDX (LoaD X): A 2003 LDX #0.

We use the # symbol to indicate
that the zero is an actual value rather
than an address. Programmers call
this immediate mode. We'll print the
character in the A register by calling
an output subroutine with JSR

$FFD2, and then we’ll count by add-
ing one to the X register with INX
(INcrement X). In a moment, we'll
want to go back and print (and count)
again, providing our count (in X) has
not yet reached 40.

A 2005 JSR $FFD2
A 2008 INX
A 2009 CPX #+40

CPX is the instruction to ComPare X.
We want to compare with the value
40, not the contents of address 40, so
we use the # symbol again. The +40
means decimal 40; when you press
Return, you'll see this converted to
hexadecimal 28. By the way, if you’re
doing this on an 80-column machine,
change the 40 to 80; on the VIC-20,
use the value 22.

Since you have compared your
count in X with a limit value, you can
now say, “If it’s not equal, go back
and print again.” That would be the
BNE (Branch Not Equal) instruction.

A 200B BNE $2005

Our character has now been
printed 40, 80, or 22 times. Let’s go
back and do it again unless the charac-
ter is an asterisk ($2A, decimal 42). A
CMP (CoMPare A) followed by a
BNE will do the trick. (Always include
a command to end the program).

A 200D CMP #$2A
A 200F BNE $2000
A 2011 RTS

Finally, RTS (ReTurn from Sub-
routine) signals the end of the pro-
gram. If the machine language
program was called from BASIC, it
will return to BASIC. Press the X key
and Return to return to BASIC from
the MLM. Now invoke the program
with SYS 8192.

As quickly as you can, type a
message like NOW IS THE TIME.
The message fills the screen at
dazzling speed. Conclude by press-
ing the asterisk key, and the pro-

gram will return to BASIC. a

Ca}

BEGINNER BASIC

e’re going to do something a
little different this month.
First I'll present a program;
then we'll discuss it. This one
quickly solves any right triangle.

To avoid typing errors, use The
Automatic Proofreader to enter this
program. Remember, the up arrow
with the line beneath it indicates you
should press the Shift key and the up
arrow simultaneously. This prints pi.

AM 10 PRINTCHRS (147)
HS 26 POKE5328G,12:POKE53281,1
5:POKE646,1
DJ 30 PRINTTAB(28)"{2 DOWN}
{GRN}RIGHT
HC 4@ PRINTTAB (28) "TRIANGLE
KE 5@ PRINTTAB(28) "SOLVER
JR 6@ PRINTTAB (28) "--~-----
{6 UP} {WHT}
DE 7@ FORT=1T014:PRINTTAB(11)C
HR$(17@) :NEXT
HP 80 PRINT" {HOME}"
CQ 96 FORT=12T025:PRINTTAB(T)C
HRS (205) :NEXT
GK 100 POKE214,14:PRINT
BE 118 FORT=12T025:PRINTTAB (T)
CHRS (183) ;:NEXT
RE 126 FORT=1T03:READY,X,A$
KG 138 POKE214,¥:PRINT:POKE211
7X: PRINT" {RED}"A$:NEXT
FG 140 FORT=1T03:READY,X,A$
ES 15@ POKE214,Y:PRINT:POKE211
,X:PRINT"{BLU}"AS$:NEXT
BE 169 DATA3,13,A,12,13,C,12,2
2,B,7,9,BB,6,21,CC,15,1
7,AA
HJ 176 C=96:REM ALWAYS RIGHT A
NGLE
KD 186 INPUT" {DOWN} {RED}
{2 SPACES}ANGLE A";A:IF
A>890RA<GTHENRUN
RB 199 IFATHENB=18G-C-A:N=N+1:
GOTO226
QG 208 INPUT"{2 SPACES}ANGLE B
";B: 1FB>89ORB<OTHENRUN
CB 210 IFBTHENA=186-C-B:N=N+1
RQ 220 POKE214,26:PRINT
RQ 236 INPUT"{BLU}{2 SPACES}SI
DE AA";AA: IFAATHENN=N+1
: IFATHEN300
HM 248 INPUT"{BLU}{2 SPACES}SI
DE BB";BB: IFBBTHENN=N+1
: IFATHEN380
HB 25@ IFAATHENIFBBTHEN3@3
MF 268 IFN<1THENRUN
PB 276 INPUT"{BLU}
{SHIFT-SPACE}SIDE CC";C
C: IFCCTHENN=N+1
DG 288 IFCC<BBORCC<AATHENRUN
GJ 290 IFN<2THENRUN
RH 399 IFAATHENIFBBTHENCC=SOQR (

AA]2+BB]2) :GOTO369

LARRY

GS 319 IPAATHENIFCCTHENBB=SOR (
CCT2-AA]2) :GOTO36G

MB 320 IFBBTHENIFCCTHENAA=SQR (
CCT 2-BB]2) :GOTO360

KX 33@ IFAATHENCC=AA/SIN(A*}/1
8G) :BB=SQR(CCT2-AAT2) :G
070376

AN EASY
WAY TO

BOLE
RIGHT
IANGL

IFBBTHENCC=BB/COS (A*]/1
8G) :AA=SQR (CCT 2-BB]2) :G
070378
IFCCTHENAA=CC*SIN(A*T/1
8G) :BB=SQR(CC[2-AAT2) :G
0T0378

A=ATN (AA/BB) *186/]:B=18
G-C-A

POKE214,17:PRINT

TB=22
N=A:GOSUB476:PRINTTAB (T
B)"{RED}ANGLE A ="T
N=B:GOSUB476: PRINTTAB (T
B)"ANGLE B ="T
N=C:GOSUB470:PRINTTAB (T
B) "ANGLE C ="T
N=AA:GOSUB476: PRINTTAB (
TB)"{BLU}SIDE AA ="T
N=BB: GOSUB476: PRINTTAB (
TB)"SIDE BB ="T
N=CC:GOSUB476: PRINTTAB (
TB) "SIDE CC ="T

GETAS$: IFAS<>CHRS$ (13) THE
N456

RUN

T=INT (N*160+.5) /100:RET
URN

346

356

368

376
386
396
466
416
426
436
44G
456

465
476

GQ
HR

You don’t have to know a thing
about trigonometry to use this pro-
gram. Simply enter values at the
prompts. Angles must be in degrees.
Sides may be in any unit (feet, inches,

AUGUST

Cn OmetoTAZOLIN

millimeters) as long as they are the
same units. If you don’t know a value,
press Return. The computer will ask
for enough information to solve the
triangle and then print to the screen
all three angles and sides, Press Re-
turn to solve another triangle.

Lines 180 and 200 look for legiti-
mate angles and line 280 checks to see
that side lengths make sense. It
doesn’t matter whether side AA or BB
is larger, but make sure that CC (the
hypotenuse) is the longest side. Be
sure you don’t enter letters when the
computer is expecting numbers. Ifa
value doesn’t make sense or too little
information is presented, the program
just starts over. An IF-THEN state-
ment is used quite a bit to check
whether information has actually
been entered. For instance, in line
190, IF A THEN .. . simply checks to
see whether angle A is anything other
than 0. In other words, IF A now has a
value, THEN do something.

A counter (N) is used to ensure
that enough information has been en-
tered to solve the triangle. N is first
encountered in line 190, As infor-
mation is entered, N is incremented
and then checked in line 260 and/or
line 290. Two pieces of data must be
entered to solve a triangle.

I think you can figure out what
most of the other lines do, but there
are two functions that we haven’t cov-
ered lately: COS (line 340) and ATN
(line 360).

COS (cosine) is similar to SIN
(sine), except that it works with a tri-
angle’s adjacent side and hypotenuse.
In line 340, COS calculates side CC
when BB and angle A are known.

Think of ATN (arc tangent) as
the opposite of TAN (tangent). The
tangent of an angle is the angle’s oppo-
site side divided by its adjacent side.
ATN is used to determine an angle
when the opposite and adjacent sides
are known. In line 360, ATN is used
to calculate angle A when AA and BB
are known.

Finally, line 470 is a simple
subroutine which rounds numbers to
two decimal places. o

TE 99 ml

COMPUTE G21

nN
3
rs
°
(=)
fe)
=
=
8
wy
-
j=
a
N
|
6

PROGRAMMERS PAGE

-—

R AND Y

T HOM P S$

he 64 has not one, not two, not

three, but six different hardware

timers. And thanks to these tim-

ers, graciously provided by the
computer’s two Complex Interface
Adapter (CIA) chips, the 64 is guaran-
teed punctual operation.

Among the most useful of the
CIA chip timers is the Time of Day
(TOD) clock. Besides keeping an ac-
curate account of the time of day, this
clock has an alarm function that oper-
ates very much like the alarm found
in your clock radio. To exploit the
TOD clock’s abilities and to demon-
strate its ease of use, I created a short
alarm clock program to keep the com-
puter’s biological peripheral—that’s
you!—running on schedule.

As with a normal alarm clock, the
following program allows you to set
both the TOD clock’s current time
and alarm time. After that, the clock
tuns in the background while you are
free to continue writing programs,
playing computer games, or napping
in your computer chair waiting for the
alarm to go off. When alarm time
comes around, the computer halts
what it is doing, and the screen’s bor-
der appears to come alive. Press the
back-arrow key located in the upper
left corner of the keyboard to turn the
alarm off. The border will stop strob-
ing, and the computer will continue
where it left off.

When you run the program, it
prompts you for the current time and
the time you want the alarm to sound.
Enter these times in HHMMSS
(Hours, Minutes, Seconds) format.
For example, if it is 2:35 and 10 sec-
onds, enter 023510. After entering
each time, the program asks you to
press the A key for a.m. or the P key
for p.m. Once both times have been
entered, you can erase this BASIC
program and use the computer for al-
most any purpose without disabling
the alarm. The alarm is vulnerable to
programs that steal the computer’s
IRQ vector or use memory in the
range 828-889. In effect, such pro-
grams will place your alarm clock into
permanent “snooze” mode.

G22 COMPUTE

AUGUST

I discovered a couple of bugs in
the TOD clock’s alarm function while
developing this program. If the cur-
rent time is between 12:00 and 1:00
(a.m. or p.m.), you must give the com-
puter the incorrect a.m. or p.m. desig-
nation when setting an alarm time
that is within the same hour. So if it’s
12:05 p.m. and you want the alarm to
sound in 25 minutes at 12:30, you
must set the alarm for 12:30 a.m. If
you don’t, your alarm will be 12 hours
off. Also, the a.m. and p.m. setting is
completely ignored on alarms that are
set for 12:00 exactly. In other words,
an alarm set for 12:00 will go off at
noon or midnight, whichever is
sooner.

TO ALARMING
SOFTWARE FOR
YOUR 64

Memory locations 56328-56331
($DC08-$DCOB) are the TOD clock’s
registers. These registers store the
time in the following format:

Purpose

Tenths of seconds
Seconds

Minutes

Hours

Register

56328 ($DC08)
56329 ($DC09)
56330 (SDC0A)
56331 (SDCOB)

The time is kept in binary code
decimal (BCD). In BCD, a byte is di-
vided into two groups of four bits,
known as a nybble. Each nybble repre-
sents one decimal digit. For example,
at 12:00, the hours register (memory
location 56331) contains a binary val-
ue of 00010010. Dividing this byte
into nybbles, we get 0001 and 0010,
representing the decimal digits 1 and
2 for 12. All of the TOD clock regis-

i) Pea |

+

ON

ters work this way. The high bit (the
leftmost binary digit) of the hours reg-
ister indicates either a.m. or p.m. This
bit is equal to 1 if it’s afternoon or 0 if
it’s morning.

These registers have a unique
latching feature. When you read the
hours register with a BASIC PEEK
command or a machine language load
instruction, all of the registers freeze
(hold on to their current value) until
you read the tenths-of-seconds regis-
ter. This prevents you from receiving
an inaccurate reading. For example, if
you read the hours register at 11:59
and the time changes to 12:00 just
before you read the minutes register,
the latching feature prevents you from
reading the time as 11:00 instead of
11:59, Although the registers’ values
freeze, the CIA chip’s internal TOD
clock keeps ticking away. So the mo-
ment you read the tenths-of-seconds
register, all the registers are updated to
reflect the proper time.

By writing to the TOD clock reg-
isters, you accomplish one of two
tasks—you either set the clock or the
alarm time. To specify which time
you set, you manipulate the high bit
of memory location 56335 ($DCOF).
If you set the high bit equal to 1, writ-
ing to the clock registers sets the alarm
time. To set the time of day, you clear
the high bit. Lines 110 and 130 of the
program above perform this duty
using BASIC’s AND and OR
operators.

The subroutine located in lines
180-270 sets both the clock time and
alarm time. Lines 190-200 receive
and verify your input. Line 210 stores
this input into a numeric array of sin-
gle digits. Lines 250-260 use this array
to poke the time into the TOD regis-
ters in BCD format. The AP variable
signifies a.m. or p.m.

Once the program sets the TOD
clock, line 150 turns on the alarm
using the command POKE 56333,4.

TOD clock alarms generate an in-
terrupt request, which normally forces
the computer to execute the interrupt
routine located in ROM at memory
location 59953 ($EA31). In order for

PROGRAMMER’S PAGE

the alarm program to know that an in- {SPACE}AND 127:REM GET
terrupt occurred, I use a short ma- ABEACe }READY TO SET TIM
chine language routine to intercept the KX 126 PRINT" {CLR}ENTER TIME (
normal interrupt routine. This ma- HHMMSS) ":GOSUB 184
chine language routine is stored in the | Mx 136 POKE 56335,PEEK(56335)
DATA statements in lines 340-370. { 8 PACE) ORN128 :REM READY
» ; , 0 SET
TGs the ou On ne nett AC 146 PRINT"{CLR}SET ALARM TI
routine to determine why the com- ME (HHMMSS)":GOSUB 180
puter has disturbed its otherwise _ XA 150 POKE 56333,4:REM TURN A
peaceful existence. (Interrupts, which LARM ON
normally occur at least 60 times asec- | FB 166 SYS SA:PRINT "{CLRJALAR
ond, can be caused by several events.) aioe uasEr
If the TOD clock alarm is not the MA 18G REM ENTER AND SET TIME
cause of the interrupt, then program BC 196 PRINT "{HOME}"TAB (26) ;:
control is passed along to the 64’s nor- INPUT TS:IF LEN(T$)<>6
mal interrupt routine. If the TOD per a aes AUEEEY (TS,
geo aa és ue omlats Laas GH 260 IF VAL(T$)>129999 OR VA
OT’ ler 1s place into a psyc! elic L(MID$(T$,3,2))>59 OR V
frenzy until the back-arrow key is AL (RIGHTS (T$,2))>59 THE
pressed or the computer’s power is cut N 196
off—a rude but effective technique for | PE 219 BOR TEL SEAS) SvES IH
terminating obnoxious computer TRL *
qi KB 226 PRINT "AM OR PM (A/P)?
behavior. 5 : Adria
AG 230 GET KS:IF K
ALARM $<>"P" THEN 236
RC 24 PRINT KS$:AP=@:IF KS="P"
GM 100 SA=828:GOSUB 289 THEN AP=128
CH 116 POKE 56335,PEEK(56335) | CG 256 POKE 56331, (T(1)*16+T(2

JP
GH
FQ
BF
MX
XF
XM
XM

DS

CM

AD

BF

)) OR AP:POKE 56336,T(3
)*16+T (4)

POKE 56329,1T(5)*16+T (6)
:POKE 56328,0

RETURN

REM STORE MACHINE LANGU
AGE DATA

CK=G@:FOR I=SA TO SA+61:
READ D:POKE I,D:CK=CK+D
:NEXT

IF CK<>7121 THEN PRINT

{SPACE}"ERROR IN DATA S
TATEMENTS": END

HB=INT ((SA+13) /256) :LB=
SA+13-HB*256:POKE SA+2,
LB:POKE SA+7,HB

RETURN

REM MACHINE LANGUAGE DA
TA

DATA 126,169,060,141,02
G,603,169,003,141,021,6
63,088,096

DATA 173,013,220,041,08
4,240,039,141,013,226,1
73,032,268,072,238,0632,
208

DATA 932,159,255,165,19
7,261,057,208,244,104,1
41,032,208,169,006,133,
198

DATA 126,169,049,141,02
G,003,169,234,141,621,6
63,088,076,049,234 o

268
270

286

296

308

316

326

336

346

350

368

376

‘SOFTWARE
CLOSEOUTS

For Commodore 64 & 128

‘SSI BARGAINS, Your Choice .

OMNI
TIME CAPSULES

‘1st Over Germany, Heroes of the Lance.
AVALON-HILL DEALS ..

ACCOLADE LIQUIDATION, Your Cholee ..
‘Ace of Aces, Fight Night, Jet Boys, Dambui
Dead, Law of the West, PSI 5 Trading Compa
‘$86 BARGAINS, Your Choice 3.
‘American Civil War Volume 1, 2 or 3, Fire King, Halis of Montezuma,
Panzer Battles, MacArthur's War, Rommel Battles for North Africa
ACTIVISION BARGAINS, Your Choice ..
Christmas Mode! Kit, Crossbow, Ocean Ri

OTHER GREAT DEALS

Now the magazine of the future can be
kept for the future. Store your issues of
OMNI in a new Custom Bound Library Case
made of black simulated leather. It’s built to
last, and It will Keep 12 issues In mint
condition indefinitely. The spine is embossed
with the gold OMNI logo, and in each case
there is a gold transfer for
recording the date.

Send your check or money order
($8.95 each; 3 for $24.95; 6 for $45.95)
postpaid USA orders only. Foreign

Super 64 Cartridge
Partner 128, by Timeworks (C/128 only) ..

‘Assembler, by Commodore :
Printed Word -or- The Tool, by Valueware
Congo Bongo, by Sega (cartridge) =
Entertainer -r- Educator, by Valueware ..

Spite & Malice -or- Slinky, by Cosmi -._..

Heswriter 64, by HesWare (cartridge) $5.00
orders add $1.50 additional for Turtle Toytand Jr. -or- Tri-Math, by HesWare S450 each
postage and handling per case. Naps Mateo, by Ateoee Pee 8) oe en

LEATHER GODDESSES OF PH x
To: OMNI MAGAZINE MINDSHADOW, by Action wow $8.00
i je Tag Team Wrestling, by Datasott .. $9.50
Jesse Jones Industries, 499 E. Erie Ave. Computer Diagnostics by Real Sofware 3450

Phila., PA 19134

CREDIT CARD HOLDERS (orders over $15)
CALL TOLL FREE 1-800-972-5858
Or mail your order, clearly showing your
account number and signature. Pa. residents
add 6% sales fax.
SATISFACTION GUARANTEED

Alter Ego, by Activision (specify male -or- female) ..
TO ORDER, SEND CHECK OR MONEY ORDER TO:

ay ows 2 open ts
catalog FREE.

complete
send $2 can o Saree oh above aces The
Check Sr an fam nck Rte hee, cal (505) 544-5615.

Circle Reader Service Number 161

World Geography

for Gomrinareton 64 and apple I

Full-color 3-D rotating aabal
World Geography is the fun way to
learn the world’s countries, flags, capi-
tals, populations, languages and cur-
rencies in an entertaining 1- or 2-player
educational game for the whole family.
“The entire presentation is outstanding...
This is really an achievement!”

—Commodore Magazine

“An awesome achievement...the execution

is flawless.” —COMPUTE!'s Gazette

C64 only $19.95, Apple II $24.95 postpaid!
Also available in Spanish and German

Injured Engine (C64 only) $14.95
An engine diagnostic simulation by IMAGIC
Fish-Ed (C64 or Apple II) $17.95

Elementary spelling and number concepts
Speller’s Duel (C64 only) $12.95
Spelling program in a game show format

‘800 829-5551.

a
1
Outside US call 408 462-1551

BOBCO Interactive Software

200 7th Ave., Suite 111, Santa Cruz, CA 95062

Circle Reader Service Number 112

5
Q
=
=
8
Ly
I=
=
i
N
<q
So

DIVERSIONS

FRE OD

D’!IGNAZI1

°
—

e are what we dream. Our
dreams of “futures past” now
seem wholesome and desir-
able compared to today’s
sometimes cockeyed present.

In the 1950s when I was growing
up, kids dreamed about the hot new
toys of technology: TV sets, space-
ships, monster computers, and tran-
sistor radios. We tuned in to family
programs every night like “Dennis the
Menace,” “Father Knows Best,” “Oz-
zie and Harriet,” and “Lassie.” We
identified with the kids on the pro-
grams—kids like Bud, Frank, Ricky,
Dennis, Margaret, Timmy, and Betty.
We dreamed ofa fantastic future—a
George Jetson future where families
would be just like those we saw on our
favorite TV programs. Life would be a
lot the same—comfortable, loving,
funny, and so on. But in the future
we'd also have tons of high-tech toys,
just like Judy and Elroy Jetson had.

We'd have a robot. We'd have a
jet car. We'd have picture phones and
cosmic baseball. And we'd never have
to do any work because we’d have
homework machines, machines to
take out the trash, machines to wash
the dirty dishes and pick up our bed-
rooms. In the future, life would be
grand!

Then something sad happened.
Somewhere between 1950 and 1990,
we kids wandered off the yellow brick
road to the Jetson future, and we nev-
er found our way back. The TV fam-
ilies of the 1950s were replaced by the
TV families of the 1990s—‘Ro-
sanne,” “Married with Children,”
“The Simpsons.” Families fragment-
ed into latchkey kids, liberated wom-
en, and workaholic dads. In place of
Donna Reed, kids came home to re-
volving-door parents and Nintendo
babysitters.

Welcome to the postmodern
world. A world beyond Walt Disney
and George Jetson. A world of AIDS,
Madonna, MTY, Ninja Turtles,
WrestleMania, and Nightmare on
Elm Street. In place of Jetson jet cars
and robots, the landscape is dotted
with cellular phones, Game Boys,

palmcorders, DAT Man, and CDTV. new ovens. We were sure that all that

The Jetsons movie came out re-
cently. If you saw the film, didn’t you
think it seemed a little odd, a little
quaint? That’s because the Jetsons
movie is a leftover, warmed-over
dream. It’s a vision of a future past.
The truth is that somewhere between
1950 and 1990 the real George Jetson
walked out on his kids, his dog Astro,
his gadgets, his wife Jane—and he
never returned.

In the 1950s we pulled up toa
Texaco station, and the man who
wore the star rushed out with a great
big smile and served us and serviced
our car. In the 1990s we roll into a

stark gasoline fortress and see hulking
vandal-proof pump-it-yourself vend-
ing machines. We pay our money toa
shadowy presence hidden behind pro-
tective layers of bulletproof glass, and
we pump our gas through an accor-
dion vapor-control hose that looks
like an appendage of Robbie the Ro-
bot in Forbidden Planet.

In the 1950s kids and their par-
ents went ga-ga over the shiny white
appliances that poured out of Ameri-
ca’s postwar factories and into Ameri-
ca’s homes. There were new refrig-
erators, new washing machines, and

G24 COMPUTE

AUGUST

I Oar

glowing white enamel was just the tip
ofa technological iceberg. Our high-
tech home of the future would be
clean, sleek, and, and cozy. And above
all, American!

Cancel that dream. Technology
tomorrow turned out to be tiny black
boxes from Japan and Korea. The
easy street to the future turned into a
shortcut to the salt mines.

In the 1950s we looked forward
toa future in which machines did
most of the work. We were told to ex-
pect more leisure time, shorter work
weeks, and a carefree existence. The
George Jetson easy street was just
around the corner. Technology would
save us so much work that we'd have
time on our hands.

Now we're in the 1990s, the de-
cade of time deprivation. Husbands
and wives both work full-time jobs.
Life is a rat race. The streets and the
skies are gridlocked by too many vehi-
cles trying to travel to too many
places. Technology has turned from
slave to taskmaster. With fax ma-
chines, cellular phones, E-Mail, phone
mail, overnight delivery services, vid-
eo conferencing, and computers, we
are never out of touch. We are never
offline. We must never stop, slack off,
or daydream. We are plugged into a
network that never sleeps. We feel un-
relenting pressure to work all the time.
Our machines quietly goad us to work
harder, faster, longer. Puff! Puff! Puff

Our present is not necessarily bet-
ter or worse than the old Jetson fu-
ture. It’s definitely different.

Editor’s note: Don’t forget to enter
Fred D’Ignazio’s Design-a-Robot con-
test. See last month’s “D’Iversions”
for a complete list of the rules.

All entries must be received by
August 31, 1991. The first-place win-
ner will receive a model robot valued
at $200; five runners-up will each re-
ceive a smaller robot valued at $30.
Send entries to Design-a-Robot Con-
test, COMPUTE Publications, 324
West Wendover Avenue, Suite 200,
Greensboro, North Carolina 27408. 8

PROGRAMS

f you enjoy solving cryptogram

puzzles that appear in many news-

papers, you'll find Crypto-64 a very

useful and entertaining program.
Amateur code breakers can use it to
practice solving letter-substitution
ciphers.

Crypto-64 doesn’t actually solve
the puzzle for you. Instead, it provides
a convenient display of both the origi-
nal cryptogram and the resulting de-
coded version as you enter various
character substitutions.

Getting Started

Crypto-64 is written entirely in
BASIC. To help prevent typing errors,
use The Automatic Proofreader to
type it in; see “Typing Aids” else-
where in this section. Be sure to save a
copy of the program when you’ve fin-
ished typing.

Solving Puzzles

Load and run the program. At the
prompt enter a cryptogram in up to
four one-line parts. Be sure to press
the Return key before moving to a
new line. You’ll then be prompted to
continue with the next part. It’s neces-
sary to limit each part of the crypto-
gram to one line in order to provide
for proper onscreen presentation. If
your cryptogram occupies less than
four lines, merely press the Return
key to skip the unused part(s).

Your cryptogram will then be dis-
played with an asterisk (*) below each
letter. You'll be prompted to select
CHAR, RESTART, or QUIT by
pressing C, R, or Q, respectively.
When you decide to substitute a new
character for one in the cryptogram,
press C, enter the letter you want to
change, and press Return. At the next
prompt, SUB, enter the letter you
wish to try as a substitute. Press Re-
turn, and the screen will then redis-
play the original cryptogram with the
substituted letter printed below the
line in the appropriate location.

If you wish to change one of your
substituted letters after you see the
display, merely reenter the original
cryptogram letter at the CHAR

Bi beak | ina P= ona 1 SI “Hoey

prompt and try your new substitution
at the SUB prompt. If you enter an as-
terisk as the substitute character, you
can effectively erase any previous
substitution.

If at some point you wish to start
again with the same cryptogram, se-
lect R (for RESTART) at the prompt.
The original cryptogram will be dis-
played with no substituted letters. To
quit, select Q at the prompt.

Because INPUT statements pro-

CRYPTO-64

CRACK CODES
AND SOLVE

CRYPTOGRAMS WITH
THE HELP OF THIS
SHORT UTILITY FOR

THE 64

hibit entering a comma or a colon, do
not use either of these punctuation
marks. If they do appear in the origi-
nal cryptogram, they should be omit-
ted. If you wish, however, you may
replace commas and colons with alter-
native characters.

Here’s a sample cipher to get you
started. After you run the program,
enter the four lines of scrambled text.

When you're ready to solve the puz-
zle, substitue the letter 7 for the letter
Z as shown below. Now try substitut-
ing E for T and A for Q.

DQKN IQR Q SOZZST SQDW OZL

Re ek kee K RADpAR kee DE

YSTTET VQL VIOZT QL

RRR KER KERTH He

LFGV

kee

QFR TCTKNVITKT ZIQZ

ake SARK DEED

DQKN VTFZ

wee teRD

ZIT SQDW VOL LXKT ZG UG

[te kee Rae KHER TR te

CRYPTO-64

BE 1 REM COPYRIGHT 1991 - COMP
UTE PUBLICATIONS INTL LTD
- ALL RIGHTS RESERVED
QM 10 CS=CHR$ (147) :RS=CHR$ (29)
:US=CHRS$ (145) :DIML$ (145)
PRINTC$:FORQ=32T064:L$(Q
) =CHR$ (Q) :NEXT: L$ (91) =CH
R$ (91) :L$(145) =CHR$ (145)
INT"CRYPTOGRAM L
PRINT: INPUTW$: LW
=LEN (WS) : IFLW=OTHENWS=U$
PRINT: PRINT"CRYPTOGRAM L
INE 2:":PRINT: INPUTX$:LX
=LEN (X$) : IFLX=OTHENX$=U$
PRINT: PRINT"CRYPTOGRAM L
INE 3:":PRINT: INPUTYS$:LY
=LEN (Y$) : IFLY=@THENYS=U$
PRINT: PRINT"CRYPTOGRAM L
INE 4:":PRINT: INPUTZ$:LZ
=LEN (Z$) : IFLZ=GTHENZS=U$
PRINTCS$: FORQ=65T09G:LS (Q
) ="*" NEXT: [FWS=USTHEN26
PRINT: PRINT: PRINT: KS=WS:
P=LW:GOSUB256
EJ 96 KS$=X$:P=LX:GOSUB250
JA 100 K$=Y$:P=LY:GOSUB256
JC 116 K$=Z$:P=LZ:GOSUB256
HF 126 GOSUB279: 0226
FP 130 PRINT" CHAR
"; s INPUTAS: IFAS=""THEN
{SPACE} PRINTCS$:GOTO166
PRINT"{2 SPACES}S
UB";:INPUT BS:IFBS=""TH
ENAS$=""': PRINTCS:GOTO160
N=ASC (AS) :L$(N) =BS
PRINTCS$: PRINT: PRINT: PRI
NT
KS$=WS$: PRINTRS$+K$: P=LW:G
OSUB266
K$=X$: PRINTRS+K$: P=LX:G
OSUB268
KS$=Y$: PRINTRS+KS: P=LY:G
OSUB260
KS$=ZS: PRINTRS+K$: P=LZ:G
OSUB266
GOSUB276
IFSS="R"THEN GOSUB286:P
RINT: GOTO76
IFSS="Q"THEN GOSUB286:P
RINTC$:END
GOTO13¢G
PRINTRS+K$
PRINTRS; : FORN=1TOP:A=AS
C(MIDS$(KS,N,1)) :PRINTL$
(A) ; NEXT: PRINT: PRINT:R
ETURN
POKE198,0: PRINT: PRINT: P
RINT" CHAR,RESTART,QUIT
(C/R/Q)";2: INPUT S$:RET
URN
POKE198,0:PRINT: PRINT"
{SPACE}ARE YOU SURE (Y¥/
N)";:INPUT S$
IFSS<>"Y"THENPRINTCS$:GO
TO16G
RETURN io]

MS 20

BF 30

RA 46

MX 56

AJ 60

FG 76

DK 86

FH 146

BR 150
XxX 160

cp 176
XR 186
Js 196
AA 206

MX 210
JD 226

CB 238
PB 240

FS 250
KH 268

GQ 276

AA 289

AE 290

HJ 366

AUGUST

PAGED] COMPUTE G25

SI
3
rs
8
°
=
=
8
WW
=
_
wu
N
Sf
6

PROGRAMS

=

or an effective video presentation,

good graphics alone are not

enough. To catch a viewer’s atten-

tion, you must present your im-
ages with style—move them on and
offa screen with flair and
imagination.

Television news is packed with
visually exciting wipes, overlays, and
fades. Simulvideo brings the power of
such video manipulation to the 64.

This utility supports a multitude
of smooth and fast graphics effects.
Large dual bitmaps can converge
from opposite directions, interlace,
blend together, and then reverse the
effect. Two different bitmaps, such as
a logo and a slate, can merge over
each other. Bitmaps can be wiped on
and off. Once onscreen, they can be
made to wave in different ways, and
text can be displayed in front of or be-
hind them, A backdrop can also fade
in and out.

With a new overlay mode, a bit-
map is not limited to being over or
under different graphics; it can be lay-
ered in between. A demonstration and
a short supporting utility for convert-
ing hi-res graphics to Simulvideo for-
mat round out this video package.

Getting Started

Simulvideo consists of three pro-
grams. The main program is written
entirely in machine language. To enter
it, you’ll need to use MLX, our ma-
chine language entry program; see
“Typing Aids” elsewhere in this sec-
tion. When MLX prompts you, re-
spond with the values given below.

Starting address: C000
Ending address: CB7F

When you’ve finished typing, be
sure to save the program to disk as
SIMULVIDEO.OBJ before exiting
MLX.

The second program demon-
strates Simulvideo effects and is writ-
ten in BASIC. Type it in using The
Automatic Proofreader; see “Typing
Aids” again. When you’ve finished
typing, save this program as SIMUL-

RL OBA D

VIDEO.DEMO to the disk with
SIMULVIDEO.OBJ. To see some of
the effects possible with Simulvideo,
load and run the demo program. It
automatically calls SIMULVI-
DEO.OBJ. After it demonstrates sev-
eral effects, press the space bar to see
others.

The third program, IMPORT, is
a BASIC utility for importing multi-
color graphics from paint programs to
Simulvideo. Type it in with The Auto-
matic Proofreader as well, and save it
to the disk with SIMULVIDEO.OBJ
and SIMULVIDEO.DEMO,

To use Simulvideo in your own
programs, add line 50 of the demo to
the beginning of your program.

OIMULVIDED

ADD WIPES,
OVERLAYS, FADES,

AND OTHER SPECIAL
EFFECTS TO YOUR
64'S GRAPHIC
PIRESENTATIONS

Program Commands
Simulvideo uses raster interrupts and
sprites to simulate two multicolor bit-
maps 48 pixels wide and 168 pixels
down. These two bitmaps work in
tandem with special memory manipu-
lation to create the special effects.

Usually such interlacing anima-
tion requires extensive memory mov-
ing, something the 64 is too slow to do
on the fly. However, because the bit-
maps are actually sprites—and sprites
are directly supported by hardware—
the video can be processed quickly
and smoothly.

Simulvideo incorporates 17 video
commands, many of which have sev-
eral options. To access them, use the

G26 COMPUTE

AUGUST

Th Cia

Pee caNGuN:

SYS commands described below.
They are available in direct mode or
from within a program.

SYS 51071, cl, c2, c3

This command, which must be called
before any others, activates Simul-
video and selects the three bitmap col-
ors (0-15). Be careful not to recall this
command once Simulvideo is en-
abled, or the computer will crash.

SYS 51589, “filename”, location

This command loads a bitmap from
disk into the specified memory loca-
tion 0-7 (stored under ROM). A max-
imum of eight bitmaps can be stored
in memory at any time, but new bit-
maps can be loaded to overwrite exist-
ing ones as required.

SYS 51388, type, left bitmap, [right
bitmap]

This command, which must be called
before any of the bitmap manipula-
tion commands, selects the bitmap to
use. The type parameter is 0 for inter-
lace effects or | for solid effects. The
bitmap parameter is the location
where the bitmap was loaded (0-7).
For interlace effects use only one bit-
map, such as SYS 51388, 0, 1. For sol-
id effects, the left and right bitmap
panels can be different, so you must
select the graphics for both bitmaps
(SYS 51388, 1, 5, 6). The bitmap com-
mands below will indicate which type
they are and how many bitmaps they
need.

SYS 50740, merge type

This performs an interlaced bitmap
merge, where the merge type is 0 fora
horizontal interlace and 1 for a verti-
cal interlace. One bitmap must be
specified for this command (SYS
51388, 0, bitmap).

SYS 50746, spread type

This performs an interlaced bitmap
spread, where the spread type is 0
for a horizontal interlace and | fora
vertical interlace. One bitmap must
be specified for this command (SYS
51388, 0, bitmap).

SYS 51569
This simultaneously slides two solid
bitmaps together without interlacing
them so that the left panel appears on
top of the right one. This effect is good
for sliding a large logo over a slate or
text over a backdrop. Alternately, if
the left bitmap has a picture in the up-
per half and the right bitmap has a
picture in the lower half, this com-
mand can make two separate pictures
slide onscreen one above the other
(similarly, pictures can slide side by
side if they are narrow). Two bitmaps
must be specified for this command
(SYS 51388, 1, left bitmap, right
bitmap).

SYS 51579

This command simultaneously slides
two solid bitmaps apart without inter-
lacing them. Two bitmaps must be
specified for this command (SYS
51388, 1, left bitmap, right bitmap).

SYS 51725, direction

This wipes a single bitmap onto the
screen. The bitmap can scroll on from
the left side (direction 0) or from the
right side (direction 1). One bitmap
must be specified for this command
(SYS 51388, 0, bitmap).

SYS 51750, direction

This wipes a single bitmap off the
screen. The bitmap can scroll off to
the right (direction 0) or to the left (di-
rection 1). One bitmap must be speci-
fied for this command (SYS 51388, 0,
bitmap).

SYS 50752, size, exit

This creates a wave effect over the bit-
map. There are four wave sizes, which
range from small to large (0-3). To
exit the effect, press the space bar or
the fire button on a joystick plugged
into port 1. The end parameter selects
whether the bitmap will remain on-
screen after it is stopped (exit 0) or
will spread apart with the last used in-
terlace pattern (exit 1). This command
will only work following an interlaced
bitmap merge (SYS 51071, merge
type).

SYS 50916

This toggles the bitmap priority so it
appears either in front of or behind
text. By default, a bitmap is displayed
in front of text whenever Simulvideo
is activated.

PROGRAMS

SYS 50930

off. The border and screen must be
the same color. This command is in-
valuable when setting up new screens.
By turning off the video, a new screen
can be printed without the user’s see-
ing it. When the video is restored,
only the completed screen is seen.

SYS 51879

This fades a diagonally lined back-
drop into view. For a pleasing effect,
the screen and border must both be
black.

SYS 52024

This fades out the backdrop. As
above, the screen and border must be
black.

SYS 50946, cl, c2, c3

This turns on overlay mode and de-
termines the three colors to use
(0-15). Its basis is the extended back-
ground color mode, so graphics must
be designed with reversed spaces.

In overlay mode, a shifted space
character prints in color 1, a reversed
space in color 2, anda reversed shift-
ed space in color 3. These characters
make up layer 2 graphics.

The @ character is redefined to
print solid spaces and can be printed
in any of the 16 available colors by in-
cluding color codes within a print
Statement as usual, such as
PRINT“[WHT]@”. This character

er, and the TAB and SPC commands ]
This toggles the entire screen on and do not work (use cursor right controls

instead). Also, the screen cannot
scroll. Although you can print from
anywhere within a program, in direct
mode your typing will only be visible
in a small strip near the top of the
screen.

To design Simulvideo graphics,
use a multicolor paint program and
draw in three colors in the upper left
area of the screen (48 pixels across by
168 pixels down). Save this screen to
disk; then load and run the bitmap
importer utility and answer the
prompts as requested. It will create a
separate graphics file on disk which
can be loaded with Simulvideo’s
graphics load command (SYS 51589,
“filename”, loc 0-7) and used in your
programs. Note that converted graph-
ics will be twice as wide as the original
ones,

Although you don’t have to wor-
ry about memory locations with Si-
mulvideo, programmers should note
that all of Bank 1 (16384-32767) is
used by the VIC-II chip. The ML rou-
tine is stored at locations 49152-
52088, and the bitmaps loaded from
disk are stored under Basic and Ker-
nal ROM.

By today’s video standards, how
you display something is almost as
important as what you display. With
Simulvideo, this is no longer a
problem.

makes up layer | graphics. : SIMULVIDEO.OBJ
The bitmap always appears in

front of layer 1 graphics (the extended | C@00:78 A9 7F 8D OD DC AY G1 21
background color mode made up of apa 780 a pe Be 28 op i pe F?
reversed spaces). Layer 2 graphics (@ i BS
; : CG18:14 83 A9 CB 8D 15 83 58 C4
characters) are special. Dependingon | cg26:6 a9 31 8D 19 DO A5 G2 BE
the bitmap priority, the bitmap can C628:18 69 65 A2 16 9D FF CF Al
either appear in front of or behind CO36:CA CA DO F9 AE EA C9 BD FS
these characters. To see this in prac | Co4g:42 c@ AE EA C9 BD F3 C9 BE
tice, the red flag in the demo is printed | cg4g:ap 18 DG EE EA C9 A5 62 6B
with reversed spaces, and the blue flag | cg5g:18 69 15 C9 D3 BG OB BD 7C
with @ characters. C@58:12 DG 85 G2 68 AB 68 AA 49
CG60:68 46 A9 3E 8D 12 DG 85 1B
CG68:62 A9 GG 8D EA C9 AS FB F3
SYS 50980 C07G:FG EA 4C 31 EA A9 G6 85 45
This turns off overlay mode. CG78:FB A9 58 8D GG DG 8D BB AC
CG8G:D6 A9 88 8D G2 DB BD BA 37
SYS 50986 CG88:D6 A9 B8 8D 84 DB 8D GC 57
This command disables Simulvideo. CBB GED O A 2 ES 280 106. DAReD RIE TL
: i CG98:D8 AS FF 8D 16 DG 26 71 3B
Always use this command to exit.Do | cgag:cB EA BA A9 FF 8D 15 DG EB
not use Run/Stop-Restore. CGA8:AD 11 DG 16 FB EE 8G DG CC
COBO:EE 62 DO EE G4 DO EE 06 7A
Video Considerations eee ee Sees Oe ce raaeace Ie
The PRINT command works slight! Sea SH (Bot fe BE O5) BO
1 command works slightly | cgc8:z¢ 76 Dd 68 AD 10 DB 29 E9
differently with Simulvideo. It’s slow- | CODG:F7 8D 16 D@ EG AG DG GB F3
AUGUST 1991 COMPUTE G27

an
3
re
fo]
Qa
°
=
=
9
0
qu
=
=
Ly
N
q
6)

COD8:AD 19
CGEG:EG DG
CGE8:FD 8D
COFG:AD 16
COF8:AE 68
C16G:19 DO
C108:CF DO
C110:8D 16
C118:16 DO
C126:6F DO
C128:8D 16
C13G:FG 68
C138:A8 CO
C146:60 85
C148:8D 08
C156:8D BA
C158:8D GC
C160G:8D GE
C168:298 71
C176:15 DO
C178:66 DG
C186:CE 06
C188:D@ EE
C199:68 DB
C198:D8 89
C1AG:DG 68
C1A8:106 DG
C1B6:D8 69
C1B8:D8 68
C1c6:10 Dd
C1C8:68 AD
C1D8:D8 EG
C1D8:69 46
C1E6:88 AD
C1lE8:D9 EG
C1F6:69 18
C1F8:C9 58
C266:FD 4C
C208:68 Ad
C216:10 FB
C218:EE 64
C226:D0 EE
C228:0E Dd
C236:C9 68
C238:62 DO
C24G6:CE 68
C248:D@8 CE
C256:60 DB
C258:DC C9
C26G:FB 60
C268:60 AD
C270:A9 66
C278:A9 FF
C286:8D 1D
C288:D9 26
C296:F1 B7
C298:8A A2
C2AG:FA AQ
C2A8:CA CA
C2BG:A9 86
C2B8:G1 A2
C2c@:5A Ad
C2C8:58 Ad
C2D6:A9 37
C2D8:DC A9
C2EG:FE AG
C2E8:FD DG
C2FG:68 DG
C2F8:EC AD
C30G:A9 3F
C368:68 DD
| C318:G6E 8D
C318:C9 Ad
FS
4E

12
8D
Ag
18
1E
cg
8D

29
68
DG
29
EG
EF
AD
EG
BF
AD
AD
G2
ol
AQ
AQ
AQ
Ag
AQ
EA
il
G2
EE
Da
Ee
8D
16
oF
8D
16
o8
Da
Dg
16
Dg
De
16
08
cl
85
6
EE
DG
62
DE
G4
CE
Dg
50
Dg
66
Dg
15
16
EA
B7
26
9D
A2
F9
GE
Ag
85
85
G1
85
Ag
E6
A6
Dg
62
4g
De
8D
Ag
F7

FB
AD
EG
FE
FF
8D
16
oF
8D
16
9G
CA
85
58
88
B8
E8
Go
EA
DG
DG
68
EE
Dg
16
Dg
DG
16
Do
DO
69
68
DG
89
68
DG
A2
Ag
FB
Dg
66
EE
c2
CE
DG
GA
26
Do
BS
88
c9
De
De
A2
8E
De
26
16
ag
pc
FF
5B
59
Ag
FD
26
FE
FD
cg
DD
8D
Ag
F4
3E
cg

G@28 COMPUTE

8D
19
Cy)
8D
Da
16
Dg
DG
16
DG
DG
DG
FB
8D
8D
8D
8D
8D
Ag
16
CE
py]
GE
g8
DG
69
68
De
69
EG
86
AD
EG
26
AD
AD
G2
gl
AD
EE
De
gc
AD
ao
CE
DG
62
DE
Ag
EA
FA
8D
8D
FF
25
26
Dg
9D
Ol
Ag
AQ
AQ
26
61
Ag
91
A6
EO
FA
Ag
88
GE
c9
8D
Ag

PROGRAMS

19 DG C34G:C9 AD G3
DG 29 1A | C348:8D ED C9
DG 68 8C | C350:A9 G3 8D
10 DG 19 | C358:FG C9 AD
@8 AD FC | C360:03 8D F2
DG EG 13 | C368:F8 43 E8
29 DF 79 | C370:FA 43 E8
G8 AD 84 | C378:F8 47 E8
DG EG 28 | C38G:FA 47 EB
29 7F Gl | C388:F8 4B E8
C9 58 9A | C39G:FA 4B E8
FD 4C 84 | C398:F8 4F E8
66 AO OC | C3AG:FA 4F E8
06 DG G9 | C3A8:F8 53 EB
62 DG 98 | C3BG:FA 53 EB
G4 DG A6 | C3B8:F8 57 E8
G6 DG B4 | C3CG:FA 57 E8
16 DG GA 5B E8
FF 8D @C 5B E8
FB CE 67 SF E8
G4 DB C4 5F E8
EE OA 61 C8 8c
DO AE BE | C3FG:43 C8 8C
AD 16 76 | C3F8:47 C8 8C
EG CF 15 cB 8c
62 8D 81 c8 8c
AD 16 96 cs 8c
E@ 6F 2D c8 8c
08 8D AS c8 8c
6F DB 96 c8 8c
8D 10 40 c8 8c
16 D@ DD c8 8c
CF DG 1E c8 8c
8D 16 D6 cs 8c
16 DG G2 cs 8c
96 DO BD c8 8c
CA DG 99 c8 8c
85 FB 5A ce 26
11 DO GA AS 60
@2 DG 91 AQ GG
EE 08 78 28 EC
DO EE 56 @@ 85
06 DO BG 66 85
DO CE A3 EC A3
66 DO AB @3 4C
CE @6C 73 co A2
C2 AD 76 FD AQ
AD G1 A6 8D FC
@1 85 AS 26 1B
D@ FC FE 91 FD
DO F9 AE c8 co
17 D@ 89 E8 E@
1B D@ 49 EE FB
8E 1C 2B c9 AD
DG 26 63 AQ A4
Fl B7 D3 6G AD
CA DG Cl FE AD
FF CF 45 66 8D
85 FB 58 66 91
33 85 17 FD C8
G8 85 9E FO EE
0G 85 38 CE EE
EC A3 FS FB C9
8D GE 34 c9 BD
46 85 2c c9 A2
FD E6 D2 FD A9
FE E@ Cl 8D FC
G6 DG E7 26 1B
D@ F9 85 91 FD
96 8D 4E c8 co
@2 A9 7C E8 EG
8D F3 A6 |C578:C9 EE FB
AQ 2E DB | C58@:FB C9 AD
F6 C9 9F |C588:B9 AS C4
5E 8D 88 Ag

AUGUST

1m9N9 oT

8D
AQ
EF
9
co
8E
8E
8E
8E
8E
8E
8E
8E
8E
8E
8E
8E
8E
8E
8E
8E

C9 A9 G3 35 | CSA8:A9
8D EE C9 GC | C5B9:91
AQ G3 8D A6 | C5B8:D6
Fl C9 A9 G2 | C5CH:DB
@8 CO 8E 3A | C5C8:EE
43 E8 8E 86 | C5DG:C9
43 E8 8E 99 | C5D8:85
47 £8 8E Al | C5EG:Bl
47 E8 8E BA | C5E8:D@
4B E8 8E C2 | C5FG:DG
4B E8 8E DB | C5F8:A9
4F E8 8E E3 | C6GG:AG
4F E8 8E FC | C608:E6
53 E8 8E G5 | C619:C9
53 E8 8E 1E | C618:D9d
57 E8 8E 26 | C620:A5
57 E8 8E 3F | C628:FE
5B E8 8E 47 | C63G:EE
5B E8 8E 60 | C638:75
5F E8 8E 68 | C640:A2
SF 8C FC 37 | C648:F1
C8 8C FE @B | C650:FC
C8 8C FC 31 | C658:63
C8 8C FE 3D | C660:60
C8 8C FC 64 | C668:AE
C8 8C FE 76 | C676:8D
C8 8C FC 96 | C678:A9
C8 8C FE A2 | C686:4C
C8 8C FC C8 | C688:06
C8 8C FE D4 | C696:Cc2
C8 8C FC FA | C698:C2
C8 8C FE 87 | C6AG:C2
C8 8C FC 2D | C6A8:8D
C8 8C FE 39 | C6BG:FO
C8 8C FC 5F | C6B8:C3
C8 8C FE 6B | C6C6:32
68 A2 A@ BF | C6C8:8D
A2 @8 A® 46 | C6DG:8D
A9 67 85 8A | C6D8:8D
AQ 6F 85 40 | C6EG:8D
@8 AG FF GD | C6E8:FB
67 85 5B 8E | C6FG:D0
77 85 59 B4 | C6F8:F9
B7 E® G8 14 | C766:D8
AQ AG 8D FD | C708:20
08 AI G3 52 | C710:B7
FE AD FB 35 | C718:9D
@6 8D FD 2D | C726:8D
@@ 91 FD 75 | C728:D0
FD C8 C8 46 | C736:F9
PO EE FB FO | C738:15
CE EE FB 79 | C746:DD
FB C9 EE ll | C748:8D
C9 B9 98 Dl | C750:A9
C9 A2 6G 7B | C758:6D
FD AQ 46 BF | C766:CA
8D FC C9 CB | C768:63
20 1B C6 C5 | C776:8D
91 FD C8 D3 | C778:A9
C8 CO 42 BE | C786:40
E8 EG 64 AS | C788:FF
EE FB C9 39 | C796:8D
C9 AD FB B8 | C798:A9
A9 CG 8D 5F | C7AG:@2
@@ AO G6 EB | C7A8:69
FE AD FB CE | C7B@:48
@@ 8D FD C6 | C7B8:A5
G6 91 FD GF | C7CG:G1
FD C8 C8 DF | C7C8:D6
F@ EE FB EA | C7D@:93
CE EE FB 13 | C7D8:8D
FB C9 EE AA | C7E@:A5
C9 D9 96 AB | C7E8:07
C9 A2 66 19 | C7FG:07
FD AS 4G 89

ut)
FD
FO
CE
FB
c9
FD
FD
@2
EE
6G
66
FD
78
E8
FD
6D
68
co
86
B7
ce
c2
8D
cé6
63
66
AE
8D
Ag
4c
ag
31
BA
4c
Do
08
OA
gc
GE
AD
66
AD
66
Fl
8E
FF
11
60
78
8D
Ag
14
EG
Dc
8D
ag
63
FE
8D
AQ
27
c8
@3
c2
98
D2
CA
8D
FO
G4
D3
CA
8A
EE

91
c8
EE
EE
cg
DD
Ag
29
E6
AS
85
Bl
Do
De
60
6D
FD
AA
26
AG
86
ao
)
31
ce
c2
8D
C6
63
68
AE
58
c2
A2
3F
F9
De
bo
De
De
1B
AD
ll
20
B7
24
77
Dg
AD
Ag
18
64
63
8D
ag
26
83
83
8D
88
AB
G3
8D
AQ
EA
48
8D
AS
63
73
CA
8D
AS
48
6G

FD
c8
FB
FB
EE
968
68
33
FE
FD
FD
FD
2
EE
8A
FC
co
66
66
80
FC
DG
58
c2
61
Ag
31
co
C2
8D
Ccé
8D
26
AG
cl
Ag
Ag
AQ
Ag
60
DG
12
DG
Fl
8E
De
CA
66
12
UI)
DG
8D
AQ
1A
1B
63
8D
Ag
19
62
8D
i)
19
c8
68
AS
oo
DS
CA
26
AS
66
D6
EE
CA

cs
cs
cg
cg
FB
B9
85
91
AS
co
Ag
29
E6
A5
48
cg
85
26
c4
20
20
LB
8D
26
DG
58
c2
62
AQ
31
Ag
53
99
AG
AD
58
88
BB
E8
AD
49
Da
49
B7
23
i)
DG
AQ
De
8D
Ag
88
EA
Da
8D
Ag
02
47
63
ag
26
9E
G3
8D
8D
DL
CA
8D
AD
CA
D2
CA
8D
ao
EE

91
cs
E8
EE
cg
60
FE
FD
FE
Ur)
76
cc
FE
FD
A2
85
FE
66
4c
67
Fl
Ag
53
99
15
8D
26
Da
50
c2
15
c2
c2
ce
12
8D
8D
8D
8D
11
FF
cg
16
8E
Do
BE
FA
1B
cg
15
97
G2
8D
AQ
11
Fl
@3
8D
58
93
03
8D
AQ
G3
FE
8D
A5
G2
FE
Fl
8D
AS
08
CA
Go

FD
co
EG
FB
AD
Ag
AG
E6
co
py)
85
Le
AS
co
46
FD
CA
c4
3F
c3
B7
09
c2
C2
Ag
53
09
U5!
8D
26
8D
a9
EG
20
DG
Ut)
02
04
06
DG
8D
26
8D
22
26
A2
Ag
8D
26
De
8D
Ag
15
81
Da
8D
Ag
18
60
26
AQ
18
AE
63
cg
FF
D3
CA
cg
AS
05
DS
CA
EE
CA

ce
3c
O4
cg
FB
Cl)
Cr)
FD
76
E8
FE
FD
FE
oo
18
AS
D6
4C
cl
26
a4
8D
AQ
4c
25
C2
c2
Ag
53
09
63
68
Cr)
67
cg
be
De
DB
Da
16
1B
DG
1L
ba
Fl
08
5B
1l
Da
ag
Ct)
31
03
8D
AQ
27
A4
63
AQ
D2
c7
@3
8D
4c
BA
co
8D
AS
cg
Dl
CA
8D
A2
Cr)
AD

6c
51
3E
DL
51
1B
cB
6D
57
GE
G3
91
40
62
62
83
7B
1B
B2
Al
3A
88
EB
CA
7A
F2
23
EB
12
AD
FC
3E
B8
47
60
3F
23
31
3F
3c
De
AG
D4
40
92
4B
33
co
Dg
1c
8c
53
59
G2
88
65
41
26
c3
73
29
GA
1c
JE
02
7c
A3
45
FA
12
85
78
95
A7
DY.

PROGRAMS

A 85 D5 AD 83 CA 85 D6 23 | CA78:E@ G4 DG E3 68 AI 6G A2 E4 $=0:X=X-64
D FE C9 20 CA Fl 68 AA 15 | CA8G:0@ 9D F8 43 9D F8 47 9D CD | pH 266 IFX<63488THEN15O
‘A DG CE AD @4 CA 85 D1 28 |CAgS8:F8 4B 9D F8 4F 9D F8 53 E6 | pH 216 FORT=60160T061439:POKET
D G5 CA 85 D2 AD G6 CA A7 |CA9G:9D F8 57 9D F8 5B 9D FB 61 ).tNEXT :
5 D3 AD @7 CA 85 D5 AD 65 | CA98:5F E8 EG G4 DB E3 66 A2 ED | yx 229 FORT=57344T058623: POKET
8 CA 85 D6 68 AB 68 AA FF | CAAG:AG AG CG 26 67 C3 68 AI 7D pe ENEXT
9 GG 28 4C CA Fl AQ 40 22 | CAA8:GG 8D 20 DG 8D 21 DG 28 65 | pp 23g FORT=201*64+3T0201*64+3
C848:8D GA CA A9 43 8D G9 CA 44 | CABG:F2 C6 AQ 1C 8D 5C CB AD 81 4+6QSTEP6:POKET, . : POKET+
C85G:A2 43 A9 GG 85 FD AD GA C2 | CABB:68 8D 96 C8 2G 46 CB AI 96 1, .:POKET+2,.:NEXT
C858:CA 85 FE A9 20 AD GG 91 40 | cAcd:20 8D 5C C8 AI AD BD 96 87 | wy o4g sg=1:CcC=G:X=47104+64
FD D@ 62 E6 FE A4 C5 | cac8:C8 AY FE 8D EG 78 AY FD 26 | oy 35g 5=291*64:5=201*64463:N=
@9 CA DG EF A4 FD G8 | CADG@:8D El 78 A9 FB 8D E2 78 A3 se GORUBTZG
D@ E9 BE GA CA EE 79 | CAD8:A9 F7 8D E3 78 A9 EF 8D 9 | o¢ o¢q xax4128:CC=CCH1
EE 0A CA EE GA CA 31 | CAEG@:E4 78 AJ DF 8D E5 78 AI DB | pe 52g Tecc=2ANDSS=OTHENCC=0:S
E8 E8 8E 69 CA EG 7B | CAE8:BF 8D E6 78 A9 7F 8D E7 74 pete cry)
C7 A2 1A B5 D8 G9 85 | CAFG:78 A9 GG 85 FD AQ DB 85 53 fis u =O:
G 95 DB CA DU F7 A9 93 DC |CAFB:FE AG Od AD OG 91 FD £6 F9 |CR 280 IECCA2ANDSS=1THENCC=0:8
GCA Fl 4c 3C C8 48 AS 2B | CBGG:FD DG G2 EG FE AG FE BG EA | y. 594 Tex c49152THEN250
B C9 3F DG G5 AQ G4 BD E3 |CBGB:DB DG F2 AG FD EG EB DB AG | AC 34g poRp=STOISTEP-1:PRINTTA
8 68 4C 47 FE A9 9E F8 |CB1G:EC 20 F2 C6 A9 BB 2G SC G7 B (10) MIDS (C$,T,1) MS"
D 18 @3 A9 C8 8D 19 63 BB |cB18:CB A9 GC 26 SC CB AQ OF F7 (UP}":FORDL=17020:NEXT:
A 4c 83 A4 20 Fl B7 E@ A6 | CB20:20 SC CB A9 G1 20 SC CB FF teat 2 My
6 GA 20 £1 C8 AY 66 AF | cB28:A9 G3 26 5C CB AY GE 20 6
5 FE 4C 2C C9 20 El C8 84 |cB30:5C CB A9 66 26 5C CB 68 EB |DS 310 REM SLATE/TEXT DEMO
9 68 85 FE 20 2C C9 20 57 |cB38:A9 GE 26 5C CB AS G3 28 1p | AH 326 S¥S51071,12,11,15
1 A9 76 85 FE 4C 2C B6 |cB40:5C CB A9 @1 26 SC CB A9 F1 | PE 338 SYS5G930:PRINT"{CLR}
9 A9 GG 85 9B 20 Fl B7 13 |cB48:GF 26 5C CB A9 BC 28 SC D1 {BLU}{6 DOWN} {11 RIGHT}
6 D@ @5 AY AG 85 YC CC | CB5G:CB A9-GB 28 5C CB AY BG Gl SIMULVIDEO
6 G1 DO G5 A9 AB 85 BD | CB58:20 5C CB 60 AE 12 DG EG D6 | KC 340 PRINT"{HOME}{14 DOWN}
Ic E@ 62 DG G5 AD BG CB |CB6G:FF DO F9 8D 21 DG AG 4B 1D {13 RIGHT}COPYRIGHT 199
5 66 EG G3 DB G5 AI AG | CB68:A2 32 CA DG FD 88 DG FS FG ab
8 9C 60 EG 64 DB G5 BO |CB7G:66 AD 12 DG C9 3C DB F9 CD | DF 350 PRINT"{HOME}{16 DOWN}
9 85 9C 6 EG G5 DG 8C |CB78:60 66 BG BG OG GG GB GB 40 {6 RIGHT}COMPUTE PUBLIC
5 A9 E8 85 9C 60 EG G6 3C ATIONS INTL LTD" :
C926:D6 @5 AI FB 85 9C 6G AD AA HQ 366 PRINT" {HOME}{18 DOWN
C928:F8 85 9C 68 AI BG 8D 1A BS SIMULVIDEO.DEMO {11 RIGHT}ALL RIGHTS RE
C930:D8 A9 35 85 Bl AI BOG 85 C9 SERVED"
C938:FD 8D GB CA A6 9C ES E8 9E |GD 10 REM COPYRIGHT 1991 -— COM | 45 37g syss5g93g
C940:E8 E8 E8 E8 E8 EB BE OC 42 PUTE PUBLICATIONS INTL L | pp 39g sys51388,0,6:SYS50740,1
C948:CA AG GG Bl 9B 91 FD E6 8A TD - ALL RIGHTS RESERVED 7S¥850752,2,1
C950:9B E6 FD DG 04 E6 9C E6 14 | QM 26 POKES3286,0:POKE53265,11 | py 39g sys51388,0,6:SYS50740,0
C958:FE AS 9B CD OB CA DO EB 36 :PRINT" {CLR} {9 DOWN}":PO + FORDL=1T0100:NEXT
C96G:A5 9C CD GC CA DO E4 AQ 75 KE53281,0:FORDL=1T0206:N | sq 4gg sys50746,0:SYS51388,1,6
€968:37 85 G1 A9 Gl 8D 1A DO F6 EXT ,6:SYS51569:SYS51579
€970:60 A2 AG AG CO 20 67 C3 14 | FP 30 POKE53265,27:MS="ONE MOM | py 41g sys51388,0,6:SYS51725,0
¢978:4C 75 CO A2 AG AG CO 26 FA ENT PLEASE. . ." 7SYS51750,1:S¥S51725,1:
C980:67 C3 4C 3F Cl 20 FD AE 6F | EK 40 CS="{BLK}{4}{5}{8>{WHT}" SY¥S50746,0
C988:26 9E AD 26 82 B7 A6 22 ED tFORT=1T05:PRINTTAB(10)M
C99G:A4 23 20 BD FF A9 Gl A2 6A ID$(CS$,T,1)MS"{UP}":FORD mm 38 Hee Aaa ee
C998:08 AG GG 20 BA FF 26 Fl 62 L=1T020:NEXT:NEXT NT" {CLR}"; :S¥S50746 1
C9AG:B7 8A AB A2 BG BA CO GD 9D | EC 5g POKE47,G:S¥S57812"SIMUL | Go 44g FORDL=1T0100:NEXT:S¥S51
COA83DG G5 AGFABEAC DS) EF CO) 7B VIDEO.OBJ",8,1:SYS62631 879:SYS51388,0,6:SYS507
C9B0:01 D@ @5 AGB AB 4C DS FF C5 | cq 66 FORT=200*64T0201*64+63:R 46,0:SYS50740,0:SYS5074
C9B8:CO G2 DB G5 AG BG 4c DS CD EADX: POKET ,X:NEXT aa al
,
Cee e ee ee og CAADENGeU dar eel eral BH. 1duSS=02CCeUExao1aae HM 458 FORT=1T02:SYS51725,0:FO
: QR 86 S=206*64:E=200%64+63:N=X RDL=1T0106: NEXT: SYS5175
C9DG:4C DS FF CO 65 DG G5 AG 22 *GOSDB720 : :
C9D8:E8 4C DS FF CO G6 DG G5 73 |p, og y=x-2949:GOSUB720:N=X-40 Gy SRHORDuS TOL aa ENE AEN
C9EG:AG FG 4C D5 FE AG F8 4C AB ea y hee EXT
96:GOSUB720:N=X-14336:GO :
C9E8:D5 FF @6 GE 83 G3 G9 G3 81 SUB720 CD 468 SYS51388,0,6:SYS59740,0
C9FO:63 G9 G3 GE 1E 2E 3E 4E FD | 4, 19g y=x+128:cC=CC+l #S¥S56752,0,1
C9F8:5E 6E 7E E4 DF GG GD DG 5F t= ie 3 Bois ine 476 SYS50740,0:SYS50752,1,1
CAGG:5E 16 27 12 FB 42 96 27 4a |OC 110 TECCU2ANDASSOTHENCC=0:S | ow 48g s¥S50740,0:SYS50752,3,1
CAG8:13 63 60 60 F8 20 3F CA 9D OS _« | JK 490 S¥S50740,0:SYS50752,2,1
CA1G:E0 60 DG G9 2G 5B cA 2G E4 | GG 120 IECCH2ANDES=1THENCC=G:5 | kp Sqg S¥S51388,0,3:SYS50740,0
CA18:75 CG 4C 9F CA 20 7D CA BB el SO :SYS50746,0
CA26:26 75 CG 4C 9F CA 2G 3F a7 | PJ 13@ IPX<63488THENGO AM 510 SYS51388,1,5,4:SYS51569
CA28:CA EG 03 DG 69 2G 7D CA F6 | DC 14@ SS=1:CC=G:X-61440+64 :FORDL=17T0 260 :NEXT:SYS5
Ci 4c 9F ca 20 5B.66 |GE 158 Ss 2bigeA geek sco N= Hea
3E Cl 4C 9F CA A2 58 X:GOSUB 526 S¥S51388,1,4,5:SYS51569
Go 9D FF 57 Gn ng bp | EH 166 N=X-2048:GosuB720:n=x-4 | 22 Suse TS 8S rds fro 38 YS 2162
66 8D 9B C4 26 66 41 696 :GOSUB720:N=X-14336: 1879269552004
20 8D 9B C4 20 Fl Bl GOSUB726 JE 530 REM OVERLAY MODE DEMO
60 AO 6 A2 GB 9D B3 | RQ 170 X=X+128:CC=CC+1 EA 540 SYS50946,2,14,1:SY¥S5093
9D FC 47 9D FC 4B BE |HH 180 IFCC=2ANDSS=OTHENCC=0:S G: PRINT" {CLR}";
4F 9D FC 53 9D FC 3D Saleen EH 559 FORT=1T03: PRINT"
FC 5B 9D FC 5F E8 F6 | PJ 198 IFCC=2ANDSS=1THENCC=0:S z

AUGUST

Ty 94901

{17 RIGHT}

COMPUTE

G-29

PROGRAMS

eachers, get out your favorite rid-
dle book and use it with this pro-
gram to spice up your homework
assignments or quizzes. Riddle
prints a quiz that reveals the answer
to your riddle when students correctly
answer the assigned questions.
Following your list of questions
are two columns of possible answers,
with a letter printed in front of each
answer. When students cross off the
letters corresponding to the correct
answers, the remaining letters, reading
from left to right and top to bottom,
spell out the answer to your riddle.

Typing It In

Riddle is written entirely in BASIC.
To avoid typing errors, use The Auto-
matic Proofreader to enter the pro-

c K

RIDDLE

TEACHERS CAN SPICE

Hy AM Pee Ts Ola

UP QUIZZES WITH

THIS WORK SHEET

GENERATOR FOR
THE 64

this section. When you have finished
typing, be sure that you save a copy
of the program before you exit the

gram; see “Typing Aids” elsewhere in | Automatic Proofreader.
L foe |
G30 COMPUTE AvuseG Unsste ho9 9

Ask Me a Riddle

When you run the program, you'll be
presented with a menu with the fol-
lowing choices.

1 GET FROM DISK

2 CREATE NEW RIDDLE
3 CORRECT

4 SAVE TO DISK

5 PRINT

6 PRINT ANSWERS

7 DISK DIRECTORY

8 CLEAR MEMORY

9 QUIT

Choice 1 enables you to retrieve
any work sheet you have previously
saved to disk. Just enter the filename
and hit Return. If you select this op-
tion or any option by mistake, just
press the back-arrow key to return to

{9 SHIFT-SPACE}{RVS} HF 760 SYS51388,0,6:SYS56916:S | |MPORT ]
{SHIFT-SPACE}{3 SPACES} ¥S50740,0:FORDL=1T0196:
{ SHIFT-SPACE} {OFF} NEXT:SYS50746,0 BE 1 REM COPYRIGHT 1991 -— COMP
{9 SHIFT-SPACE}";:NEXT | FB 716 SYS54916:GOTO330 UTE PUBLICATIONS INTL LTD
QG 56G PRINT"{17 RIGHT} {RVS} GM 726 L=E-S:EN=L+N ~ ALL RIGHTS RESERVED
{16 SHIFT-SPACE} AJ 730 A$=L/256:A=L-256*A$:B%= | QJ 10 POKE53280,@:POKE53281,0:
© {3 SPACES} (EN-A) /256:B=EN-256*B3-— PRINT" {CLR} {WHT} "TAB(7)"
AN {10 SHIFT-SPACE}"; A:C%=(E-A) /256:C=E-256* SIMULVIDEO BITMAP GRABBE
- GH 57@ FORT=1T03:PRINT" C$-A R{2 DOWN}"
oa {17 RIGHT} {RVS} JK 74@ POKE781,A%+1:POKE782,A: | XG 26 DIMSC(11):PRINT"ENTER MU
$ {23 SPACES}";:NEXT POKE9G,C: POKE91,C%:POKE LTICOLOR BITMAP": INPUT"F
EF 580 PRINT"{17 RIGHT} {RVS} 88 ,B:POKE89,B%:SYS41964 ILENAME";M$:MS=MS+",P,R"
Wi {1@ SHIFT-SPACE} KE 758 RETURN SR 36 PRINT" {DOWN}ENTER FILENA
« {3 SPACES} FS 760 DATAL76,170,176,149,85, ME TO SAVE SIMULVIDEO":1
° {10 SHIFT-SPACE}"; 87,149,85 NPUT"GRAPHICS UNDER";C$
a QC 590 FORT=1T03:PRINT" FP 770 DATAB7,154,90,87,154,21 | © 40 PRINT"{2 DOWN}LOADING...
[o) {17 RIGHT} {OFF} 8,215,154 "
s {9 SHIPT-SPACE}{RVS} KS 780 DATA218,215,154,218,215 | KP 5@ OPEN1,8,1,M$:POKE185,0:P
{SHIFT-SPACE}{3 SPACES} 7 154,218,215 OKE780,0:POKE781,6: POKE7
= { SHIFT-SPACE} {OFF} ME 796 DATA154,170,215,154,170 82, 64:SYS65493:CLOSE1
8 (9 SHIFT-SPACE}";:NEXT 215,154,170 BM 66 PRINT" {DOWN}CONVERTING. .
SJ 600 PRINT:PRINT: PRINT DE 8069 DATA215,154,176,215,154 + TAKES 2 MIN 26 SEC.
PK 610 FORT=1T03:PRINT"{BLU}@@ 7 250,215,154 QB 70 S=24576:M=16384:A=21:B=2
Ww @@@GGGG{7}G{YEL}@@@{7}@ | MB 810 DATA218,215,154,218,215 tF=64:G=24
{BLU} @@@@@@@@@":NEXT ,154,218,215
BJ 620 PRINT"{7}@@@aaeecea JH 820 DATA154,218,215,151,215 | CS 88 ORT=GTO11:SC(T) =2:2
= (YEL} @@@{7}ee(@}aeeeeee 1215,149, 85
a" BJ 836 DATA87,149,85,87,191,25 AQ 96 NEXT: FORY=6T0167:FORX=0T
fms FG 630 FORT=1T03: PRINT" {YEL}@@ 5,255,42 O47STEP4
ea@eeeeeeeeeceeeeeaaea”: | XQ 846 DATA17G,176,170,149,85, | *X 160 M8=S+ (INT (¥/A) *B) + (INT (
NEXT 87,154,176 X*C/D/E) *F) + (E* (INT (Y) -
W HJ 646 PRINT"{7}@eee@eeeeeR BK 858 DATA87,154,170,215,154, (INT (Y/A)) *A)) +SC (INT (X
{YEL}ee@e¢7}e@@e@eeeeee" 176,215,154 *C/D))
HP 650 FORT=1T02:PRINT"{BLU}@@ | FG 860 DATA17G,215,154,255,215 | HJ 116 POKEM%, PEEK (M+ (YANDG) *H
N @@eaeeet7}@{YEL}@@ex7+e@ ,154,213,87 + (YANDI) + (C*XANDJ) ) :NEX
{BLU} @@@@@@@@e@": NEXT KG 876 DATA154,169,087,154,171 Pe NEXT
q SB 666 PRINT" {BLU} @@a@@eeeae{7> 787,154,171 SE 126 PRINT"{2 DOWN}SAVING...
@{YEL}@@@¢7}@{BLU}@@e@e@@ | HO 886 DATA87,154,171,87,154,2 ?SYS57812CS,8,1:POKE19
@@@@{HOME}":SYS56930 55,87,154 3,02 POKE194,96
CO) BC 676 SYS51388,0,6 KD 896 DATA213,87,154,170,87,1 | 2© 130 POKE174,6:POKE175,104:s
KM 686 SYS56916:SYS51725,0:SYS 54,176,215 ¥S62957 a
50746,0:SYS50916:SYS517 | RX 966 DATA154,176,215,154,176
25,1:SYS50746,0 7215,151,255
FX 696 SYS50916:SYS50740,@0:SyYS | JF 914 DATA215,149,85,87,191,2
1 §0752,2,1 55,255,42

the main menu.

Choice 2 enables you to create a
new riddle work sheet. Your first task
will be to enter a riddle. The only lim-
itation on the question is that it con-
tain 254 characters or less.

Next, enter the answer to your
riddle in lowercase characters, leaving
no spaces betweeen words. The an-
swer must contain no more than 254
characters. You may want to keep
your answer relatively short, as its
length is related to the number of dis-
tractor answers you'll have to provide.
More about that later.

At this point you may enter any
instructions you want printed on the
sheet. Again you are restricted to 254
characters.

Now enter the number of ques-
tions or problems you want to include
and then the questions or problems
themselves. Here you are restricted to
70 characters per question. If you are
using Riddle as an answer sheet, you
can enter page numbers and/or prob-
lem numbers at this point. After each
question or problem enter the correct
answer. As with the questions, you are
restricted to 70 characters.

Next, enter one distractor answer
for every character in your riddle’s an-
swer. Distractors are incorrect an-
swers from among which the students
must select the correct ones. Think of
them as the wrong answers on a mul-
tiple choice quiz. Just be sure that
none of the distractor answers are the
same as any of the correct answers.
The computer will check for an exact
string match, but it will not catch du-
plicate answers like 2.5 and 2.50, 1/2
and 4/8, or alternate spellings of the
same word. You are restricted to 70
characters here. This may sound con-
fusing, but it will become clear after
you prepare your first sheet.

If at any point in this process you
want to go back and change some-
thing or make corrections, just keep
pressing the back arrow until you re-
turn to the desired spot. Then reenter
the correct information. When fin-
ished, keep pressing Return until you
get back to where you were. The input
routine in this program has been
changed to allow you to enter com-
mas; however, you can’t insert or type
over characters. You can only use the
Delete key to erase characters.

Choice 3 enables you to correct
any mistakes you discover after you

PROGRAMS

return to the main menu. This option | RIDDLE
takes you back through the create-
new-riddle sequence, displaying what | BE 1 REM COPYRIGHT 1991 - COMP
you have previously entered. Just UTE PUBLICATIONS INTL LTD
keep pressing Return until you reach 7 ALL, RIGHTS RESERVED
the place where you want to change {SRIDLO! DAMASIO 8 IE. GR A902 (220, C
- z 2 (99) ,N(99) ,0(99) ,D$(99),
any information. Then keep pressing DS (99) ,Q$ (99)
Return until you get back to the main | MM 28 GOSUB 19406:GOSUB2569
rane tae tetesmetne ise coneeee
hoice 4 to save CLR}"CHR 73
sl ee le pri: ne enter the TZ 2BG ERINECHRY:(B)
: cs 40 GosUB1960
filename. F HB 58 GETPS:IFPS$=""THEN5G@
Choice 5 prints your work sheet. | ag 66 H=VAL(P$):IF H<l OR H>9
It will ask you to press Return when {SPACE}THEN 50
the printer is ready. Then enter the QM 7G ON H GOTO 1426,116,116,1
number of copies you want and press 238 17108, 2166,2170,1546,1
Return again. The printing routineis | 9p gg coro2a
not printer specific. It formats the SB 90 GOTO2130
page by assuming 80 characters per JB 108 IF PS$="Y"THEN3G
line and 66 lines per page. If you KC 119 SOBUB TS GASREROE "THEN
ae 4 IT
aa PRINT" {RVS}"RQS"{OFF}"
are the same width as normal XH 126 PRINT"ENTER
characters. { SHIFT-SPACE} RIDDLE
Choice 6 prints a duplicate of the pe }QUESTION":
problem sheet, but with the correct COsUB Tee nt es
answers on it. In front ofeach correct | SX 138 ee BADE ae eae
answer, the program will print the cor- | 93 149 IF PS="<"THEN3G
responding question number and a SD 156 IF RQS=""THEN110
letter which is part of the riddle an- EG 166 GOSUB1560:PRINT"CURRENT
swer. Distractor answers will have {SHIFT-SPACE} QUESTION":
only a letter in front of them. eee {RVS}"ROS"{OFF}":
You may want to have the stu- MD 176 IF RAS<>""THENPRINT"CUR
dents write the problem number RENT { SHIFT-SPACE } ANSWER
before every answer they cross out to ": PRINT" {RVS}"RAS" {OFF}
be sure they actually worked the prob- * =
lems. Their answers could differ from | 82 188 Tee oe Syne
those on this answer sheet if more (SHIFT-SPACE }ANSWER" :GO
than one problem had the same cor- SUB165¢ ne a
rect answer. PQ 196 IF IPS<>"" AND PS<>"<"
Choice 7 is disk directory. It gives fae yen RAS=IP$:LR=
§
ea) ae TERE Cue GA 260 IF PS="<" THEN 114
: : JB 216 IF RAS="" THEN 169
Choice 8 clears the computer's HR 220 FORI=1TOLR: IFASC (MID$ (R
memory. If you create a new riddle AS$,I,1))=32THENPRINT"NO
without first clearing the memory of {SHIFT-SPACE}SPACES"
the old information, the previous rid- | SP 238 IFASC (MIDS (RA§,I,1))=32
dle will still be there. There are times THENERINE: GOmOTE
2 ; KF 248 A=ASC(MIDS(RAS$,I,1))
you might want to do this. 4 CA 250 IFA>9G OR A<64 THENPRIN
Choice 9 lets you quit. Use this T" LOWERCASE
option to exit the program. {SHIFT-SPACE } LETTERS
You don’t have to remember all {SHIFT-SPACE }ONLY": PRIN
the restrictions on entering your data; T:GOTO186
Riddle is a fairly user-friendly pro- OGiy2 ok NEALE
eae SE 270 GOSUB1560:IF1$<>""THENP
gram, and the computer will inform RINT "CURRENT
you if you make a mistake. The one { SHIFT—SPACE} INSTRUCTIO
restriction you will have to remember, NS":PRINT"{RVS} "IS"
though, is to make sure thatnoneof |. 594 CORE 0, aa PRIND
your distractors are equivalent to a {SHIFT-SPACE } INSTRUCTIO
right answer. The computer will only NS":GosuBl6é5@.
check for identical answers. An identi- | rr 299 IFIPS<>"" AND PS<>"<" 7
cal distractor could slip through. HEN IS=IPS
AUGUST 1991 COMPUTE G31

o
SS
3
my
c
°
Qa
°
=
=
9
a)
pa
[=
fx
ul
N
<q
6

QB

Js

PROGRAMS

300 THEN 166 GG 616 IF LEN(D$(I))>70 THEN P
316 " THEN 276 RINT"NO{SHIFT-SPACE}MOR
326 LR = LEN(RAS) E{SHIFT-SPACE}THAN
330 GOSUB156@:PRINTLR;" DIS TSHIFT-SPACE}76
TRACTORS": PRINT ee { SHIF T-SPACE } CHARACTERS
346 IF N<>O THEN PRINT"CURR ":PRINT:GOTOS
ENT{SHIFT-SPACE}NUMBER | PC 620 IF PS="<" THEN I=I-l:IF
{SHIFT-SPACE }OF is I>@ THEN GOTO570
{SHIFT-SPACE}PROBLEMS": | BH 630 IFI<=@ THEN I=N:GOTO406
PRINT"{RVS}"N"{OFF}":PR | QQ 640 IF DS$(I)=""THEN576
INT XJ 650 FORJ=1TON:A=VAL(AS(J)):
350 PRINT"ENTER “IFD$(I)=A$(J) THEN670
{ SHIFT-SPACE }NUMBER BE 666 NEXTJ:GOTO680
{ SHIFT-SPACE } OF CM 676 PRINT"DUPLICATES AN
{SHIPT-SPACE}PROBLEMS " {SHIFT-SPACE} ANSWER": PR
:GOSUBL650 INT:GOTO590
360 IF IPS<>""ANDPS<>"<"THE | ER 686 I=I+1:IFI<=LEN(RAS) THE
NN=VAL (IPS) N 570
370 IF PS="<"THEN 276 HX 698 GOTO36
380 IF N = @ THEN 330 CS 768 GOSUB1586:INPUT"HIT
399 I=1 { SHIFT-SPACE} RETURN
400 GOSUB1566:PRINTN;" QUES { SHIFT-S PACE } WHEN
TIONS": PRINT { SHIFT-SPACE} PRINTER
410 TE QS(1)<>""THENPRINT"C {SHIFT-SPACE}IS
URRENT{ SHIFT-SPACE} QUES {SHIFT-SPACE} READY"; ZR$
TION"T: PRINT" {RVS}"QS(I | CK 705 IFZRS="<"ORRAS=""THEN3G
)"{OFF}":PRINT PE 716 GOSUB 1580
420 PRINT"ENTER JE 720 INPUT"NUMBER
{SHIFT=SPACE}QUESTION " { SHIFT-SPACE}OF
7 1:GOSUB1650 {SHIFT-SPACE }COPIES";NS
436 IFIPS<>""ANDPS<>"<"THEN :NC=VAL (NS) :IFNS="" OR
QS (I) =IPS {SPACE}NS$="<" THEN 30
440 IF LEN(QS(1))>76 THENPR | RB 738 OPEN1,4,7:FORPG=1TONC
INT"NO{SHIFT-SPACE}MORE | PQ 748 FORRS=139T0143:POKERS,A
{SHIFT-SPACE}THAN 7 SC (RAS) :NEXTRS:GOSUB139
{ SHIF T-SPACE } CHARACTERS 8
" ~~ «| EP 758 X=0:FORI=1TON: IFX<LEN (Q
454 IF LEN(Q$(I))>76 THENPR $ (1) ) THENX=LEN (QS (I) )
INT:GOTO426 RG 760 NEXTI
460 IF PS="<"THEN IF I=1 TH | RC 778 IT=X+9:CN=INT (8G/IT) :QC
EN 330 =CN
470 IF PS="<"THEN IF I>1 TH | KJ 780 LQ=0:2S=1:2E=76:LL=LEN (
EN I=I-1:GOT0400 RQ$) : IFZE>=LLTHENZE=LL:
480 IF A$(I)<>""THENPRINT"C GOTO820
URRENT{SHIFT-SPACE}RIGH | XK 790 IFMID$(RQ$,ZE,1)<>" "AN
T{SHIET-SPACE } ANSWER™:P DZE<>1THENZE=ZE-1:GOTO7
RINT" {RVS} "AS (I) "{OFF}" 96
499 PRINT:PRINT"ENTER PX 800 PRINT#1,MIDS(RQ$,2S,ZE-
{ SHIFT-SPACE} RIGHT 2S+1) :ZS=ZE+1:ZE=ZE+76:
{ SHIFT-SPACE } ANSWER": GO LQ=LQ+1
SUB1659 DJ 805 IFZE>=LLTHENZE=LL:GOTO
500 IFIPS<>""ANDPS<>"<"THEN {SPACE}820
AS (I)=IP$ EM 819 GOTO790
510 IF PS="<" THEN 406 GR 820 N5=12+LQ+LI
526 IF AS(I)=""THEN486 SD 830 PRINT#1,RIGHTS (ROS, LL-Z
536 IF LEN(AS(I))>76 THEN P S+1) :PRINT#1:LQ=LQ+1
RINT: PRINT"NO KC 849 ZS=1:ZE=76:L1=0:LL=LEN (
{SHIFT-SPACE} MORE I$) : IFZE>=LLTHENZE=11:G
{SHIFT-SPACE}THAN 78 CH oTossa
ARACTERS" EX 850 IFMIDS(I$,2E,1)<>" “AND
54@ IF LEN(A$(I))>70 THEN P ZE<>1THENZE=ZE-1:GOTO85
RINT :GOT0420 8
550 I=I+1:IF I<=N THEN 400 | MJ 860 PRINT#1,MIDS(I$,2S,2ZE-2Z
566 I=1 S+1) :ZS=ZE+1:ZE=ZE+76
570 GOSUB1560:PRINTLEN(RA$) | DH 865 IFZE>=LLTHENZE=LL:LI=LI
;" DISTRACTORS": PRINT +1:GOTO880
580 IFD$(1)<>""THENPRINT"CU | BX 876 GOTO85G
RRENT{SHIFT-SPACE}DISTR | AR 880 PRINT#1,RIGHTS(I$,LL-ZS
ACTOR"; 1I:PRINT"{RVS} "DS +1) :LI=LI+1
(1) "{OFF}": PRINT CF 896 T=CN:PRINT#1:PRINT#1:FO
590 PRINT"ENTER DISTRACTOR" RI=1TON
7 1:GOSUB1650 PB 900 PRINT#1,STRS(I);". ";Q$
600 IFIPS<>""ANDPS<>"<"THEN (1) ;SPC (IT-LEN (Q$(I))-L
DS (I) =IPS EN(STRS$(I))-2);
G32 COMPUTE AUGUST 1991

GF 910 T=T-1:IFT<=GTHENT=CN: PR

GS
QE
Jc
cP
RC
JD
sc
KH
SK
PQ
QB
GG

fons
RJ
PK
HM
BC

KS

HR
cq

SE

KH

BS

926
936
946
956
960
976
986
996
1666
16198
1626

10638

1640

1658

1666

1076

10686

1696

1695
1166

1116

1126

1138

1146

1156

1166

1176
1186

1196

1266
1216
1215

1226

INT #1: PRINT#1:N5=N5+2:G
0SUB2136
NEXTI: PRINT#1
FORI=1TON
J=INT (1+N*RND(1)) : IFC (J
) =1THEN940
C(J)=1:0 (1) =J:NEXTI:FOR
I=1TON:C (I) =@:NEXTI
X=6:FORI=1T0N: [FX<LEN (A
$ (I) ) THENX=LEN (AS (I) )
NEXTI
ND=LEN (RAS) :FORI=1TOND
FORI=1TOND: IFX<LEN (D$ (I
)) THENX=LEN (D$(I) )
:NEXTI: IT=X+6:CN=INT (8
@/IT) :FORI=1TOND
J=INT (1+ND*RND (1) ) : IFC
(J) =1THEN1016
DS (I) =d:C (J) =L:NEXTI:F
ORI=1TOND:C (I) =G:NEXTI
FORI=1TOLEN (RAS) : IFX<L
EN (D$ (I) ) THENX=LEN (DS (
I)) :NEXTI
IFPAS="A"THENPRINT#1:P
RINT#1,RAS:PRINT#1:I=1
:J=1:T=CN
IFPAS<>"A"THENPRINT#1:
PRINT#1:PRINT#1:I=1:J=
1:T=CN
FQ=LEN (RAS) / (N+LEN (RAS
))
K=RND (1)
IFK>FQ THENM=INT (1+26*
RND (1) )
LO=LEN (STR$(O(I)))-3:R
O=LO+2:2=0 (I) :Z$=RIGHT
$(STR$(Z) ,RO)
IFPAS<>"A"THEN1130
IFK>FQ ANDI<=N AND PAS
="A" THENPRINT#1,2$;CH
RG (644M) ;"="FAS (2);
IFK>FQ ANDI<=N THENPRI
NT#1,SPC (IT- (LEN (CHRS (
64+M) )+3+LEN (AS (0(I)))
)-LO);
IFK>FQ ANDI<=N AND PAS
="A" THEN GOTO 1150
IFK>FQ ANDI<=N THENPRI
NT#1,CHRS (644M) ;" = "7
AS$(O(I));
IFK>FQ ANDI<=N THENPRI
NT#1,SPC (IT-(LEN (CHRS (
64+M) ) +3+LEN (A$ (0(I)))
Ye
IFK>FQ ANDI<=N THENI=I
+1:T=T-1
IFT<=OTHENT=CN: PRINT #1
: PRINT #1:N5=N5+2:GOSUB
2136
IF K>FQ THEN1226
IFJ<=LEN (RAS) THENPRINT
#1,MIDS(RA$,J,1);" = "
7DS$(DS(J));
IFJ<=LEN (RA$) THENPRINT
#1,SPC(IT-4-LEN (D$ (DS (
J))))F
c=G
IFJ>LEN (RAS) THEN1L226
J=J+1:T=T-1:1FT<=6 THE
NT=CN: PRINT#1:PRINT#1:
N5=N5+2:GOSUB9G
IFI>N AND J>LEN(RA$)TH
EN GOSUB1668

RF

HB
XK

JG
JG

DH
DE

FB

EQ

RC

FQ

FE

FE

AS
BQ

RJ
GX

AG

gP
BS

1236

1246
1256

1266
1276

1286
1296

1366

1316

1326

1338
1346

1356

1366
1376

1386
1396

1406

1416
1426
1436
1446
1456
14698
1476
1486
1496

1586
1519

1520
1536

1546
1556

PROGRAMS

IFI>N AND J>LEN (RAS) TH
EN NEXTPG:CLOSE1:GOTO3
6

GOTO1678
GOSUB1580:NS="": INPUT"
FILENAME";NS: LENS="<"
{SPACE}OR NS="" OR RAS
="" THEN 30
NS=NS+",S,W":OPEN5,8,5
,NS$:ND=LEN (RAS)
OPEN15,8,15:INPUT#15,E
7E$,C,D

IF E<>63 THEN GOTO1316
PRINTES;",OK TO OVERWR
ITE (¥/N)";:INPUTYNS
IF LEFTS(YNS$,1)<>"¥" T
HEN CLOSE5:CLOSE15:GOT
038

CLOSE5: PRINT#15,"S@6:"+
N$:CLOSE15:0PEN5,8,5,N

$

PRINT#5,RQS: PRINT#5,RA
$:PRINT#5,N:FORI=1TON:
PRINT#5,QS (I) :NEXTI
FORI=1TON: PRINT#5,AS (I
) :NEXTI

FORI=1TOND: PRINT#5,DS (
I) :NEXTI: PRINT#5,1I$:PR
INTCHR$ (147);
N+1:J=LEN (RAS

IFC=4 THENCLOSE1: PRINT
CHRS (147) ;:END
GOTO1670
PRINT#1,"CROSS OUT THE
LETTERS THAT GO WITH
{SPACE}THE RIGHT ANSWE
RS."
PRINT#1,"THE LETTERS L
EFT WILL SPELL THE ANS
WER TO THE FOLLOWING."
PRINT#1:PRINT#1: RETURN
GOSUB1580:NS$="": INPUT"
EILENAME";N$: IFNS="<"0
RNS=""THEN3G
NS="G:"4NS+",S,R":OPEN
5,8,5,NS
OPEN15,8,15:INPUT#15,E
7ES,C,D
IF E<>62 THEN GOTO147@
PRINTES;",HIT <RETURN>
">: INPUTYNS:CLOSE5:CLO
SE15:GOTO36
CLOSE5:CLOSE15:0PEN5,8
15,NS
GOSUB2109:RQS=ZZ$:GOSU
B2196:RAS=ZZ$:GOSUB219
9:N=VAL (ZZ$) :FORI=1TON
GOSUB2149
Q$(I)=ZZ$:NEXTI
FORI=1TON: GOSUB2100:A$
(I) =Z2Z$:NEXTI:FORI=1T0
LEN (RAS) : GOSUB210G:D$ (
I)=22$
NEXTI
GOSUB2146:I$=ZZ$:CLOSE
5:GOTO3G
RUN
QQS="ENTER
{SHIFT-SPACE } NUMBER
{ SHIFT-SPACE}OF
{ SHIFT-SPACE } PROBLEMS"
:RETURN

BS

MC
FS

1566

1576
1586

15968
1666

1618
1628

1636
1646
1658
1666
1679

1688
1698

1768
1716

1726

1738

1746
1756

1766

1776

1786
1796

1866
1816
1826
1836
1849
1856

1868
1876

188

PRINT" {CLR} {RVS}

{1l SPACES}HIT
{SHIET-SPACE}<
{SHIFT-SPACE}TO

{ SHIFT-SPACE}GO

{ SHIFT-SPACE } BACK

{3 SPACES} z

{16 SHIFT-SPACE}{OFF}"
RETURN

PRINT" {CLR} {RVS}

{19 SPACES}ENTER
{SHIFT-SPACE}<
{SHIFT-SPACE}TO

{ SHIFT-SPACE}GO

{ SHIFT-SPACE} BACK

{3 SPACES}

{9 SHIFT-SPACE} {OFF}"
RETURN
NL=12+LQ+L1+2* INT (N/QC
)

N2=NL
NL=NL+2* (INT ( (LEN (RAS)
+N) /CN) )

IFNL>6 3THENNL=NL-63:GO
TO0163G

FORI=NLTO66: PRINT#1:NE
XTI: RETURN

Ips=""

PRINT"{RVS} {OFF}
{LEFT} {LEFT}{RVS}
{OFF}{LEFT} {LEFT}";
IFLEN(IP$)>254THEN GOT
oO 1798

GETP$: IFPS=""THEN1660
IFASC (P$) =190RASC (PS) =
147THENGOTO1660
IFPS="<"THENRETURN

IF PS="{DOWN}" OR PS="
{UP}" OR PS$="{RIGHT}"
{SPACE}OR P$="{LEFT}"
{SPACE}THEN 1666
PRINTPS;"{RVS} {OFF}
{LEFT} {LEFT}";

IFASC (PS) <>2GANDASC (PS
) <>13GANDASC (P$) <>13TH
ENIPS$=IPS$+P$:GOTO166G
IFASC (P$)=13THENRETURN
IF LEN(IP$)<1 AND (ASC
(P$)=2G0RASC (P$)=157)T
HENPRINT"{RIGHT}";:GOT
01650

IF LEN(IP$)=1 AND (ASC
(P$) =2G0RASC (P$)=157)T
HENGOTO1659

IFASC (P$) =2GORASC (PS) =
157THENIPS=LEFTS (IPS$,L
EN (IP$)-1) :GOTO1666
GOTO1669

PRINT: PRINT" NO

{ SHIFT-SPACE }MORE

{ SHIFT-SPACE } THAN
{SHIFT-SPACE}254 CHARA
CTERS":PRINT =
GOTO 165¢

GETPS: IFP$<>""THEN1819
GOTO 1666

SYS779

REM PRINT QUESTIONS
X=@:FORI=LTON: IFX<LEN (
Q$ (I) ) THENX=LEN (Q$ (I) )
NEXTI

IT=X+9:CN=INT (80/IT) :Q
C=CN
N5=14+INT (LEN (RQS) /80)

AUGUST

FC

FH

KR

BA

xQ

sc

AG

XG

GP

KE

PC

GA

FR

XH

PA

XE

DF

19895)

1896

1968

1916

1926
1936
1946
1959
1960

1976

1986

1999

26968
2619

2626

2038

2048

2056

2668
2678
2686

2096
2196
2118

2126
2136
2146
2158

2169
2176

+INT (LEN (I$) /80) +2* INT
(N/QC)
NL=8+INT (LEN (RQS$) /80) +
INT (LEN (I$) /8G) +2* INT (
N/QC)
PRINT#1:PRINT#1,RQ$:PR
INT#1:T=CN: PRINT#1,1$:
PRINT#1: PRINT#1:FORI=1
TON

PRINT#1,1;". ";Q$(I);S
PC (IT-LEN (Q$ (I) ) -LEN(S
TRS (I))-3)7
T=T-L: IPT <=GTHENT=CN: P
RINT#1:PRINT#1

NEXTI: PRINT#1: RETURN
POKE4G563,128: POKE4056
4,128: POKE53289,6: POKE
53281,6:POKE646,1
FORI=1T015:CLOSEI:NEXT
: RETURN

PRINT" {CLR}"TAB(8)"
{RVS}{6 SPACES}RIDDLE
{ SHIF T-SPACE } MENU

{7 SPACES} {OFF}"
PRINTTAB (8) XS$TAB (32) X
ss
PRINTTAB (8) XS$TAB(10)"
1 = GET{SHIFT-SPACE}FR
OM{SHIFT-SPACE}DISK"TA
B(32)xsS$ .
PRINTTAB (8) XSSTAB (1G) "
2 = CREATE
{SHIFT-SPACE} NEW
{SHIFT-SPACE}RIDDLE"TA
B(32)xS$
PRINTTAB (8) XS$TAB (10) "
3 = CORRECT"TAB (32)XS$
PRINTTAB (8) XS$TAB (16) "
4 = SAVE{SHIFT-SPACE}T
O{SHIFT-SPACE}DISK"TAB
(32) xs$
PRINTTAB (8) XS$TAB (10)"
5 = PRINT"TAB(32)XS$
PRINTTAB (8) XSSTAB(10)"
6 = PRINT{SHIFT-SPACE}
ANSWERS "TAB (32) XS$
PRINTTAB (8) XSSTAB(13)"
7 = DISK{SHIFT-SPACE}D
IRECTORY "TAB (32) XS$
PRINTTAB (8) XSSTAB (18) "
8 = CLEAR{SHIFT-SPACE}
MEMORY "TAB (32) XS$
PRINTTAB (8) XS$TAB(19)"
9 = QUIT"TAB (32) XS$
PRINTTAB (8) XSSTAB (32) X
ss

PRINTTAB (8) "{RVS}

{7 SPACES}HIT

{ SHIF T-SPACE }CHOICE
{SHIFT-SPACE}

{7 SPACES}{OFF}"
RETURN

z2zs=""
GET#5,Z$: IFASC (Z$) <>13
THENZZS=Z2Z$+Z$:GOTO211
G

RETURN

IF N5>63 THEN PRINT#1:
PRINT#1:PRINT#1

IF N5>63 THEN N5=N5-63
: RETURN

RETURN
PAS="A":H=5:GOTO7G

c=1

COMPUTE G33

a
3
WwW
5
Q
=
=
8
ee
~
=
kul
N
q
6

PROGRAMS

BH 2188 S$=" ":FORBL=@T018:S$= KF 2360 GET#8,B$: IFBS<>""THEN2

SS$+" ":NEXT

SS 2196 OPEN8,8,0,"S"

JP 2266 PRINT"{CLR}";

PH 2216 GET#8,B$:1FB$<>CHR$ (34
) THEN2216

FM 2220 PRINTSPC(8)"{RVS}";"
{GRN}";BS;

FR 2230 GET#8,B$: IFBS<>""THENP
RINTBS; :GOTO2230

EJ 2240 PRINT

SG 2256 FOR E=@ TO 19

FR 2260 GET#8,B$,B$:GET#8,HS,L

$

JH 2276 GET#8,BS$:IFBS<>" "THEN
2496

QM 2280 GET#8,B$:IFBS<>CHRS (34
) THEN 2286

AB 2290 IF C/2=INT(C/2) THEN P
RINTTAB(19)" ";

MM 2300 FORXL=1T016:GET#8,BS
BM 2319 IFBS="" OR B$=CHR$ (34)
THEN BS="_"

PP 2326 PRINT "{WHT}"BS;:NEXT

XP 2330 GET#8,BS

SR 2346 GET#8,BS:IFBS=" "THEN2
346

RG 2356 PRINT",";BS;" "

f you are a GEOS user, how would

you like to replace that program’s

plain pointer with something more

lively? Magic Mouse is an animated
replacement. It changes the shape of
your pointer from an arrow toa
mouse whose tail moves back and
forth.

Now, instead of using an arrow to
make your selections with GEOS ap-
plications, you can make a tail-wagging
mouse scurry across the screen. Next
to the mouse’s head in the upper left
corner of the sprite, you’ll notice a
small arrow. This is the pointer’s hot
spot. Use this area to select menus
and icons.

Getting Started

Magic Mouse is written entirely in
BASIC. To help prevent typing errors,
use The Automatic Proofreader to
type it in; see “Typing Aids” else-
where in this section. When you’ve
finished typing, be sure to save a copy
of the program,

Note: The listing following this
article is for GEOS version 2.0; if you
are using GEOS version 1.2, enter line
560 as follows.

560 DATA 141, 49, 227, 169, 1, 141,
50, 227

When you are ready to use Magic

360

BK 2378 NEXT:C=C+1

JE 2380 IF C=2 THEN PRINT CHRS
(19) +"{DOWN}"; :GOTO225
6

HG 2390 PRINT" {HOME}{23 DOWN}"
CHRS$(158)"{6 SPACES}
{RVS}SPACE{OFF} = MORE
{SHIFT-SPACE}";

RJ 2466 PRINT"{4 SPACES}{RVS}M
{OFF} = MENU"; Fy

DP 2410 GETI$: IFJS=""THEN2410

QA 2420 IFIS$<>" “ANDIS<>"M"THE
N2410

CF 2438 PRINT" {HOME}{23 DOWN}
{37 SPACES}";

QD 2440 IFJS="M"THENCLOSE8:GOT
036

KB 2458 PRINT" {HOME}"+"{DOWN}"

;

IM 2460 IF C/2<>INT (C/2)THENFO
RXL=0TO19: PRINTSS$: NEXT
>GOTO2486

GH 2470 FORXL=@T019: PRINTTAB (1
9);SS:NEXT

AC 2486 PRINT"{DOWN}"; SS;SS;"
{HOME}";"{DOWN}"; :GOTO

2250

BK 2490 XL=ASC (HS$+CHRS$(@)) :XL$
=STRS (XL+256*ASC (XBS+C
HR$(@)))

SE 2568 POKE214,23:POKE211,16:
PRINT CHR$(145);"{PUR}
";XLS;" BLOCKS FREE ":
CLOSE8:XC=1

RA 2516 PRINT "{12 SPACES}
{RVS}";CHR$ (158) ; "HIT
{SPACE}SPACE BAR";

GK 2526 GETAS: IFAS=""THEN2520

QK 2530 IFAS<>" "THEN2526

SR 2540 PRINTCHRS (5) +CHR$ (147)
:GOTO30

DQ 2556 DATA 128,112,207,250,1
95

GS 2560 RESTORE: FORRI=139T0143
: READRN: POKERI, RN: NEXT
:POKE649,1:XS$="{RVS}
{SPACE} {OFF}"

QR 2570 BSS$="{CLR}{24 DOWN}"

KQ 2586 BL$="{46 SPACES}"

HG 2596 HNS="{RVS}< TO
{ SHIFT-SPACE}GO
{ SHIFT-SPACE} BACK {OFF}
{HOME}"

MC 2600 RETURN a

=]

CHANGE YOUR 64'S
GEOS POINTER TO A
FIRIENDLY MOUSE
THAT WAGS ITS TAIL

Mouse for the first time, have a blank
disk handy. When you run the pro-
gram, you will be prompted to insert a
blank disk in drive 8. Magic Mouse
formats the disk and then writes the
header/icon block, application file,
and GEOS directory entry to the disk
using direct access commands. When
the program has finished creating the
new pointer, you’re ready to use it.
Boot GEOS, open your new
Magic Mouse disk, and click on the

mouse icon. The program will load DJ 130 GET ANS$:IF ANS<>" " THE

G34 COMPUTE

AUGUST

Uy uta

and put the interrupt request (irq)
routine and data in place and then
exit back to the deskTop.

Mouse Mechanics

Magic Mouse runs in the background
ofa GEOS application by wedging
into the GEOS irq routine. Every time
an ir is executed, Magic Mouse adds
anumber to a counter. After a certain
number is reached, the program re-
draws the mouse’s tail in another po-
sition, making it appear to move.

If you’ve ever changed the shape
of your pointer with GEOS’s prefer-
ence manager, you know that GEOS
will load the new shape data whenever
a disk that contains the preference
manager is read. Magic Mouse, how-
ever, overrides this new data. The
program resides at the bottom of the
hardware stack at $0100, and the
graphics data resides at $0291.

MAGIC MOUSE

BE 1 REM COPYRIGHT 1991 — COMP
UTE PUBLICATIONS INTL LTD
- ALL RIGHTS RESERVED
AG 100 PRINT "{CLR}INSERT A BL
ANK DISK IN DRIVE 8"
SR 116 PRINT "{DOWN}{YEL} (WARN
ING! DISK WILL BE FORMA
TTED) {7}"
FS 124 PRINT:PRINT"PRESS SPACE
TO BEGIN"

PROGRAMS

N 136

PRINT: PRINT: PRINT"WORKI
NG"; :WOS="*"

OPEN 15,8,15,"N@:MAGIC,
91"

FOR T = 1 TO 177:READ D
A:D1$=D1$+CHRS (DA) :NEXT
PRINT WOS;

FOR T = 1 TO 32:READ DA
:D2$=D2$+CHR$ (DA) :NEXT:
PRINT WOS;

FOR T = 1 TO 181:READ D
A:D3$=D3$+CHRS (DA) :NEXT
PRINT WOS;

OPEN 2,8,2,"#":PRINT WO
$F

PRINT#15,"U1l 2 @ 17 6":
PRINT#2,D3$: PRINT#15,"U
2 2 @ 17 G":PRINT WOS;
PRINT#15,"Ul 2 @ 17 1":
PRINT#2,D1$:PRINT#15,"U
2 2 @ 17 1":PRINT WOS;
PRINT#15,"Ul 2 6 18 1":
PRINT#2,D2$:PRINT#15,"U
2 2 6 18 1":PRINT WOS$;
PRINT#15,"B-A @ 17 66"
PRINT#15,"B-A @ 17 61"
CLOSE2:CLOSE15

PRINT: PRINT: PRINT"DONE!
"

BB 149

CE 156

RF 166

MB 176

CA 186

cP 190

BA 260

MG 216

PS 226

230
248
250
260

DQ
QB
BP
SF
MJ 276 DATA 6,255,3,21,191,255
7255,255

DATA 128,0,1,128,8,1,12
8,24

DATA 1,128,66,1,128,126
71,128

DATA 66,1,128,126,1,128
7255,1

DATA 129,255,129,131,25
5,193,131,255

FK 286

BF 296
SH 306

PG

319

his program is a combination of

several disk utility routines which

allows easy tracing of files and

editing of disk sectors on both sin-
gle- and double-sided Commodore
disks. 7/E 80 is for the 128 in 80-
column mode with a single 1571 disk
drive designated as device 8.

The program consists of a disk
sector editor, file tracer, block alloca-
tion map display, sequential file lister,
routines for freeing and allocating sec-
tors in the disk BAM, and a disk di-
rectory listing routine.

Typing It In

T/E 80 is written entirely in BASIC
but includes machine language sub-
routines. To avoid typing errors,
use The Automatic Proofreader to
enter the program; see “Typing
Aids” elsewhere in this section.
When you have finished typing, be
sure to save a copy of the program
to disk before you try to run it.

DA DATA 193,131,255,193,13
1,255,193,129

DATA 255,129,128,255,1,
128,126,1

DATA 128,8,1,128,8,1,12
8,144

DATA
6,0,0
DATA 4,0,4,0,4,77,97,10
3

DATA 105,99,32,77,111,1
17,115,161

DATA 32,118,49,46,48,0,
8,0

DATA 6,77,1G5,168,116,1
11,116,32

DATA 74,111,104,116,115
111,110, 32

DATA 32,32,32,32,0,0,0,
g
DATA
DATA
DATA
DATA
DATA
DATA
116,101,100

DATA 32,80,111,105,110,
116,101,114

DATA G,@,255,131,17,0,7
7,97

DATA 163,105,99,32,77,/1
11,117,115

DATA 161,160,160,166,16
6,166,17,1

DATA @,6,91,3,3,10,48,1
DATA G,@,255,32,183,193
13304

DATA G,1,83,0,32,183,19
3,116

AP

1,255,255,255,131,

a
uo
~

97,

550 DATA 4,150,2,63,0,120,1
69,8

DATA 141,246,259,169,1,
141,247,256

DATA 88,76,44,194,32,18
3,193,158

DATA 2,193,132,51,6,238
7 82,1

DATA 166,6,173,82,1,261
730,208

DATA 4,162,265,160,2,20
1,42,208

DATA 4,162,209,166,2,20
1,72,208

DATA 4,162,205,160,2,20
1,84,268

DATA 9,162,201,166,2,16
9,0,141

DATA 82,1,192,06,240,21,
134,2

DATA 132,3,166,0,162,0,
177,2

DATA 157,245,132,232,23
2,232,200,192

DATA 4,268,243,198,157,
132,8,192

DATA @,G,128,6,8,0,0,0

DATA @,24,0,0,60,0,0,12
6

DATA @,0,66,0,0,126,6,0

DATA 255,0,1,255,128,3,
255,192

DATA 3,255,192,3,255,19
2,3,255

DATA 192,1,255,128,0,25
5,9,0

DATA 126,6,8,8,144,96,8
8

'

DATA 8,8,16,16,9,6 o

568
576
588
590
608
616
620
630
646
656
668
676

680
696

786
716

720
738
748
758

THIS UTILITY
COMBINES A DISK

SECTOR EDITOR, FILE
TRACER, SEQUENTIAL
LISTER, AND MORE
FOR THE 128 IN 80
COLUMN MODE

How to Use the Program

After you load and run 7/E 80, there
will be a short pause for setup before

the main menu screen appears. From

=

the menu select any of the following
routines by pressing the key that is
highlighted in red.

Editor Press E to enter the editor rou-
tine. You will be prompted for the
track and sector to load. Enter the de-
sired numbers in decimal. The pro-
gram will load and display the data
contents of the entered sector, and the
editor menu will appear. Use the cur-
sor keys to move through the dis-
played data. From the editor menu
several choices are available.

N N loads and displays the contents
of the next linked sector in the file,
shown after /ink at the bottom of the
screen display. If there is no link, an
error message will be displayed, and
you'll be returned to the main menu.

J Jloads and displays the sector de-
fined by the value under the editor
cursor (track) and the value to the

AUGUST

less st71} COMPUTE G35

a
3
Ps
°
a
°
=
=
9
cs)
tal
i=
=
iw
N
i
)

PROGRAMS

right of the cursor (sector). This is use-
ful for jumping to the first sector of a
file from a directory sector.

L Lclears the editor menu screen and
prompts for a track and sector to load.
The program then loads and displays
the entered sector data and redisplays
the editor menu.

Shift + and Shift — These key com-
binations load and display the sector
one track above or below the currently
displayed sector. For example, from
track 4, sector 15, SHIFT + will load
and display track 5, sector 15; SHIFT
— will go to track 3, sector 15.

+ and — These load and display one
sector above or below the sector cur-
rently displayed. For example, from
track 4, sector 15, press + to move to
track 4, sector 16; press — to move to
track 4, sector 14.

S S stores the currently displayed sec-
tor data to a memory buffer.

P P pulls the data stored in the mem-
ory buffer and displays it on the
screen. The data will not be written to
disk until W is selected.

C Callows you to change the value of
the data byte under the editor cursor.
You will be prompted to enter the de-
sired data value. Values should be in
decimal form. The new value will not
be written to disk until W is selected.

T T allows you to enter text in the
sector data display, starting at the lo-
cation of the editor cursor. The Re-
turn key must be pressed when text
entry is complete. The new data will
not be written to disk until W is
selected.

W W writes the currently displayed
data to disk at the current track and
sector, indicated at the bottom left of
the screen display. W must be selected
before any changes made to displayed
data will be saved to disk.

Z Z fills the current data display with
zero bytes. You will then be asked
whether to write the zero data to disk.
Y will write the zeros; N will not.

Q Qexits the editor and returns you
to the main menu.

———

BAM Map Press B from the main
menu to select the BAM display rou-
tine. You will be prompted to insert
the disk whose BAM you want dis-
played and then press Return. The
program will then read and display
the disk BAM for both single- and
double-sided disks. Press the Return
key for the main menu.

Tracer. Press T from the main menu
to access the tracer routine. You will
be prompted to enter the name of the
file to be traced, after which the pro-
gram traces the entered file through
the disk. When the trace is complete, a
listing will be displayed on the screen
in linked order of all sectors occupied
by the file. The load address for pro-
gram files and the directory sector
containing the selected filename will
also be displayed.

If the sector listing is longer than
can be displayed on one screen, you
will be prompted to press the Return
key to continue the listing. When the
screen listing is complete, you will be
asked whether you want a hardcopy
printout of the sector listing.

Sequential File Lister Press S from
the main menu to select the sequential
file lister routine. You will be prompt-
ed to enter the name of the file to list.
The program will then list the file to
the screen. Press the No Scroll key
during the listing to pause. When the
listing is complete, press Return to go
back to the main menu.

Allocate Sector Press A from the
main menu to enter the sector alloca-
tion routine. You will be prompted to
enter the track and sector numbers of
the sector you wish to allocate, at
which time the program will allocate
the sector in the disk BAM. You will
then be asked whether you want to
continue. Press Y to return to the allo-
cate prompt; N returns you to the
main menu.

Free Sector Press F from the main
menu for the sector free routine. This
routine works in the same manner as
the sector allocate routine, freeing sec-
tors in the BAM instead of allocating
them.

Directory Press D from the main
menu to display the directory of the
disk currently in the drive. Press No

Scroll to pause the listing if necessary.
When the listing is complete, you will
be prompted to press the Return key
to go back to the main menu.

Quit Press Q from the main menu to
clear the screen and exit the program.

T/E 80

BE 1 REM COPYRIGHT 1991 -~ COMP
UTE PUBLICATIONS INTL LTD
- ALL RIGHTS RESERVED
PK 16 IFPEEK(215)<>128THENPRIN
T"{CLR}{3 DOWN}SWITCH MO
NITOR TO 8@ COLUMNS-PRES
S A KEY":GETKEYAS:GRAPHI
cs
PRINT" {CLR} {3 DOWN}
{5 RIGHT}SETTING UP T/E
{SPACE}80 .. ."
FAST :COLOR6,1:DCLOSE:GOS
UB2720
PRINT" {CLR} {BLU} "SPC (27)
"€AFCCCCCCCCCCCCCCCCCCCC
cccccc{s}"
PRINTSPC (27) "BLA}CCCCCCC
ececececceeccCccct{s}B"
PRINTSPC (27) "BB
{9 SPACES}{6}T/E 86
{9 SPACES} {BLU}BB"
PRINTSPC(27)"BB {22 U} B
Bt
PRINTSPC (27) "BB
{7 SPACES}{6}MAIN
{2 SPACES}MENU{7 SPACES}
{BLU} BB"
MP 99 PRINTSPC (27) "B{Z}CCCCCCC
eCcccceccecccCcccyxX#B"
HC 100 PRINTSPC(21) "{a}ccccc
fE}CCCCCCCC{16 SPACES}C
CCCCCCCTEFCCCCC{S}"
PRINTSPC (21) "BEA}CCCCCC
ececececcceccececcecccc
CCCCCCC{S}B"
FORN=1T07:PRINTSPC(21)"
BB"SPC (36) "BB":NEXT
PRINTSPC (21) "B{Z}CCCCCC
eccceccececcctceccecccc
CCCCCcCeXyB"
PRINTSPC (21) "{z}Ccccccc
ceceecceccececectccccce
CCCCcccc{x}"
PRINTGBSETS$G2$M2$G3SM3S
G4$M4SG5SM5SCHRS (27) "L"
GETKEYA$:GOSUB1060
IFAS="D"THENGOSUB2356:G
oTo4a
IFAS="A"THENAS=ALS:BS=S
A$:C$=AG$:D$="B--A";GOTO
2260
IFAS="E"THENAS=SFS$:BS$=F
R$:C$=FG$:D$="B--F":GOTO
2260 +
IFAS="T"THEN1300
IFAS="E"THEN280
IFAS="S"THEN2130
IFAS="B"THEN2430
IFA$="Q"THENPRINT" {CLR}
{CYN}":END
GOTO159

GJ 26

JB 38

Ds 40

sc 56

PD 60

XJ 76

KJ 86

cg 110

KF 126

KG 136

GA 146

DX 156

SD 166
SH 176

PR 186

HX 196

FD 206
QE 210
HG 226
PQ 230
GI 246

RD 256
KB 266

G36 COMPUTE

AUGUST

1959: 31

BR
RJ

SM

PK

EA

ac

JA

SE

AE

HH

EB

AX

HB

AA

BH

ME

GB

276
289

296

306

319

326

338

348

356

360

378

380

396

406

419
426

430

446
456

460
476
480
499
500
519

526
530
546
550
560

PROGRAMS.

REM EDITOR
PRINTGASIES$:SYS49176,G,
6,0
$Y¥S49176,0,16,8:PRINT"
{BLU} {A}CCCCCCCCCCCC{E}
ceecccecceceeccceccccccc
CCCCCCCCCCCCCCCLEFCCCCC
ceccccc{s}"
FORN=17T020:SYS49176,G,
N,8:PRINT"B"SPC (64) "B'
NEXT
SY¥S49176,0,21,8:PRINT"
4Q}CCCCCCCCCCC{R}CCCCCC
eccc¢yR}CCCCCCCCeCCCCCCC
CCER}CCCCCCCCCCCERFCCCC
Cccccctwy"
SYS49176,G,22,8:PRINT"B
{2 SPACES} {6}TRK: {BLU}
{5 SPACES}B {6}SCT:
{BLU} {5 SPACES}B {6}LIN
K: T{4 SPACES}S{BLU}

{5 SPACES}B {6}POS:
{BLU} {6 SPACES}B {6}VAL
:{BLU}{5 SPACES}B"
S¥S49176,6,23,8:PRINT"
{Z}CCCCCCCCCCCLE}CCCCCC
CCCCLE }CCCCCCCCCCCCCCCC
CCE} CCCCCCCCCCCTEFCCCC
eccecc¢xX}"™

GOSUB166: PRINTGBSETSG4
SEES
WINDOW33,11,38,12: INPUT
T:WINDOW48,11,53,12:INP
urs
WINDOWG,6,79,24:1FT=OTH
ENGOSUB1G60: PRINTG4SZRS
:SLEEP2:GOTO40
GOSUB1160:SYS49176,6, 22
,17:PRINT"{2 SPACES}":S
¥S49176,0,22,27:PRINT"
{3 SPACES}"
8Y¥S49176,0,22,41:PRINT"
{3 SPACES}":SYS49176,G,
22,46:PRINT"{3 SPACES}"
SYS49176,0,22,58: PRINT"
{3 SPACES}":SYS49176,0,
22,69:PRINT"{4 SPACES}"
GOSUB2660:SYS49176,0,22
,16:PRINT" {WHT} "T:SYS49
176,0,22,27:PRINTS
PRINT#15,"U1";5;0;T;S:P
RINTCHRS (14) CHRS (27) "M"
WINDOW9,17,72,20,1:SYS6
710: TN=PEEK (6144) :SN=PE
EK (6145)
PRINTCHRS (142) ; :WINDOWG
10,79,24: PRINTCHRS (27) "
Lb";

GOSUB2676:GOSUB1126
PRINTGBSET$G2$Q2$G3$Q3$
G4$Q48G5SQ5SG6SQ6$G7$Q7
$: IFPTHENP=0:GOTO476
1=6:K=17:5=9:M=6144
SYS49176,8,0,0:GOSUB93G
GETKEYAS
IFAS="C"THEN8 4G
IFAS="T"THEN88G
SYS49176,0,K,J3:SYS49155
, PEEK (M+I) ,143
IFAS="{UP}"THEN69G
IFAS="{DOWN}"THEN726
IFAS="{ LEFT }"THEN756
IFAS="{ RIGHT} "THEN789
IFAS="Z"THEN97@6

HJ

KA

HP

sD
CE

576
586
596

606
610

620
6308
640
656
666

676

686
696
768
710
728
730
746
756
760

776
788
798

860

816
828

836
846
856

866
870
880

896

960
916

920
938

949

955

960
976

IFAS="Q"THEN4G
IFAS="L"THEN346
IFAS="J"THENT =PEEK (M+I)
:S=PEEK (M+I+1) : GOTO37@
IFAS="W"THEN1G10
IFAS="N"THENT=TN:S=SN:G
0T0368
IFAS="+"THENT=T+1:GOTO3
76
IFA$="-"THENT=T~1:GOTO3
70
IFA$="-"THENS=S-1:GOTO3
76
IFAS="+"THENS=S+1:GOTO3
70
IFAS="P"THENPRINTGBS"
{RED} PULLING-{6}": FORN=
6144706399: POKEN, PEEK (N
+256) :NEXT:GOSUB1676:GO
T0456
IFA$="S"THENPRINTGB$"
{RED} STORING-{6}":FORN=
6144706399: POKEN+256, PE
EK (N) :NEXT:GOTO45G
GOTO486

1=1-64:K=K-1
IFK=1L6THENK=20

GOTO8aG

T=1+64:K=K+1
IFK=21THENK=17

GOTO8GG

I=I-l:J=J-1
IFJ=8THENJ=72:K=K-L:IFK
=16THENK=20

GoTO8aG

I=I+]:J=d+1
IFJ=73THENJ=9:K=K+1:IFK
=21THENK=17
IFI<OTHENI=1+256
IFI>255THENI=1~-256
$YS49176,0,22,58:PRINT"
{3 SPACES}":SYS49176,0,
22,69:PRINT"{4 SPACES}"
GOTO478

GOSUB16@: PRINTG4$NV$
WINDOW67,22,72,22: INPUT
X: PRINT" {HOME} :"; :WINDO
WO,0,79,24

POKE (M+I) ,X:GOSUB936
GOTO926

GOSUB106G: PRINTG4$TX$:D
O:GETKEYAS: IFAS=CHRS (13
) THENEXIT

POKE (M+I) ,ASC(A$) :S¥S49
176,0,K,3:SYS49155, PEEK
(M+I) ,143

T=I+]l:JsJ+1: 1EJ=73THENI
=9:K=K+1: IFK=21THENK=17
GOSUB93G:LOOP
GOSUB112@:P=-1:GOT0450
IF (PEEK (M+I))+128>255TH
ENSYS49176,0,K,J:SYS491
55, (PEEK (M+I))-128,143:
GOTO95G
SYS49176,8,K,J3:SYS49155
, (PEEK (M+I) )+128,143
SY¥S49176,@,22,57:PRINT"
{WHT}"I:SYS49176,0,22,6
8:PRINT"{4 SPACES}

{4 LEFT}"PEEK(M+I)
RETURN
PRINTGB$" {RED} ZEROING—
{6}":FORN=6144T06399: PO
KEN, @:NEXT

AUGUST

AF

QF

JE

XA

986 WINDOW9,17,72,20,1:PRIN
T" {WHT } "CHRS (14) CHRS (27
)"M"; :SYS6690

996 WINDOWG,9,79,24:PRINTCH

R$ (142) CHRS$ (27) "L";

PRINTGB$"{RED} WRITE?
{SPACE} {6}":GETKEYAS:1
FAS<>"Y"THEN456
GOSUB166G: PRINTG4$00$G
BSCS$:GETKEYA$: IFAS<>C
HRS (13) THEN1O1G
PRINTGB$"{6}WRITING:"G
4SCMSG3SMT$
PRINTG5$"{6 SPACES}"T"
{12 SPACES}"S:GOSUB266
@
SYS6673:PRINT#5,CHRS (P
EEK (6144) );:PRINT#15,"
U2" 53OsTFS
GOSUB2670:GOSUB1460:GO
T0456
PRINTGLSCM$G2$CMSG3$CM
$G4SCMSG5SCMSG6SCM$G7$

CMSGBSCS$: RETURN

SYS49176,0,22,16:PRINT
"(WHT }"T

SYS49176,0,22,27:PRINT

Ss

WINDOW9,17,72,20,1:PRI

NTCHRS (14) CHRS$ (27) "M";
SYS6690
WINDOWG,@,79,24:PRINTC
HRS (142) CHRS$ (27) "L";
SYS49176,0,0,0:PRINT"
{WHT }"
SYS49176,0,22,40:PRINT

1666
1619

1626
1636

1446

1656
1666

1676
1986
1696

1186
1116

11208
1130

TN
SYS49176,0,22,45:PRINT
SN

RETURN

IFT<1THENT=1: RETURN
IFT>7G6THENT=79: RETURN
IFS<@THENS=G: RETURN
IFT<18ANDS>20THENS=26:
RETURN
IFT>17ANDT<25ANDS>18TH
ENS=18:RETURN
IFT>24ANDT<31ANDS>17TH
ENS=17:RETURN
IFT>3GANDT<36ANDS>16TH
ENS=16:RETURN
IFT>35ANDT<53ANDS>26TH
ENS=20:RETURN
IFT>52ANDT<6GANDS>18TH
ENS=18:RETURN
IFT>59ANDT <66ANDS>17TH
ENS=17:RETURN
IFT>65ANDT<71ANDS>16TH
ENS=16:RETURN

1278 RETURN

1286 :
1290 REM TRACER

1308 PRINTGASTLSGBSET$G2SCM
$G4SCMSG6SCMSG3SFES
WINDOW35,12,54,12,1:1N
PUTFS$: IFF$=""THENWINDO
WO,8,79,24:GOTO4G
DOUNTILLEN (FS) =16:FS=F
$+CHRS (168) :LOOP:WINDO
WO,0,79,24
PRINTGBSCS$G3$CMSG5$CM
$G4$00$:GETKEYAS: IFAS<
>CHRS (13) THEN1339
PRINTG4STJ$

1146
1156
1166
1176
1186
1196
1266
1216
1226
1236
1240
1256

1268

1316

1326

1336

1346

) 1

COMPUTE G37

a
3
Wi
ec
°
(=)
Ce)
=
=
8
in
=
-
uu)
N
&
o

PROGRAMS

KX 1356 X=6767:SD=1:GOSUB266G B{6}SECTOR: {BLU} BB{63B
SR 1366 PRINT#15,"U1";5;0;18;S LK: {BLU} B{6}SECTOR:
D:GOSUB268G:SYS6656 {BLU}BB{6}BLK: {BLU}B HB 1900
HQ 1370 G$=F$:FORN=@0TO15:AS=LE {6}SECTOR: {BLU}B" EF 1919
FTS$ (G$,1) :POKEX+N,ASC( | XK 1676 PRINTATS"B{6}CCCC{BLU}
AS) : GS=RIGHTS (G$,15-N) B£6}CCCCCCC {BLU} BB{6}C
:NEXTN Ccc{BLU}B{etccccccc
JP 1388 SYS6738:A=PEEK (254) :IF TBLU}BB{6}CCCC{BLU}B KE 1926
ATHEN1406 £6$CCCCCCCTBLU}B"
PE 1398 SD=PEEK(6145):GOTO136@ | DE 1686 FORN=1TO13:PRINTATS"B | BA 1936
MC 1400 LT (@) =PEEK(6127+A) :LS( {4 SPACES}B
6) =PEEK (6128+A) :FT=PEE {3 SHIFT-SPACE}
K (6126+A) {3 SHIFT-SPACE}BB
FK 1416 PRINT#15,"U1";5;G;LT (G {SHIFT-SPACE} MJ 1946
) ;LS(@) {2 SHIFT-SPACE}B
CR 1426 GET#5,A$:GET#5,BS$:LS (1 {4 SPACES} ME 1956
) =ASC(B$) :LT (1) =ASC(AS (3 SHIFT-SPACE}BB EE 1960
) :AD=0 {3 SHIFT-SPACE}B
BX 1430 IFFT=129THENADS="SEQ": {2 SHIFT-SPACE}
GOTO147¢ {2 SPACES} CK 1976
SD 1446 IFFT=133THENADS$="REL": {3 SHIFT-SPACE}B":NEXT
GOTO147¢ XE 1690 PRINTATS"{Z}CCCCLE}CCC
KE 1458 IFFT=132THENADS="USER" CCCCEXF{Z}PCCCCLEFCCCCC | BR 1980
:GOTO1476 CCEX} {ZFCCCCLEFCCCCCCC
DD 1466 GET#5,A$:GET#5,BS:A=AS {x}" FB 1999
C(A$) :B=ASC(B$) :AD=B*2 | EQ 1700 PRINT"{GRN}":SYS49176,
56+A:ADS=HEXS (AD) G,G,0:SYS49176,6,1,27: | JC 2000
XJ 1470 TN=LT (1) :SN=LS (1) PRINTF $:SYS49176,0,5,3
RK 1486 PRINT#$15,"U1";5;6;TN;S 9:PRINTSD BA 2616
N BF 1718 S¥S49176,G,1,57:PRINTY
KX 1496 PRINTG4STRS:Y¥=2 E:SYS49176,6,3,35:PRIN | QD 2029
XX 1560 DO TLT (8)
PE 1516 GET#5,AS$:GET#5,B$:LS(¥ | MS 1726 SYS49176,@,3,39:PRINTL | QG 2030
) =ASC (BS) :LT (Y) =ASC(AS S(@):SYS49176,0,4,54:P
) RINTAD$:SYS49176,9,5,5 | DF 2046
MK 1526 IFLT (Y¥)=G@THENEXIT 3:PRINTAD AP 2656
EF 1539 PRINT#15,"U1";5;0;LT(¥ | DH 1730 MN=@:FORN=1TOYE MR 2060
) 7LS (¥) BG 1740 M=MN*39: IFN<14+MTHENK=
BJ 1546 Y=¥+1:IFY=255THENEXIT 9+N-M:A=N1:B=N2:C=N3:G
HB 155@ LOOP . 0T01786 MI 2076
XA 1568 YE=Y:GOSUB2670 RK 1750 IFN<27+MTHENK=N-4-M:A=
RH 1576 PRINTCHRS (27) "M"; N4:B=N5:C=N6:GOTO178@ | DR 2080
KP 1580 PRINT"{CLR}"ATS"{BLU} | CF 1760 IFN<4G+MTHENK=N-17-M:A
¢adccccccccecceccecccce =N7:B=N8:C=N9:GOTO178G
CCCERFCCCCCCCCCCCCCCCC | RA 1774 IFN=4G+MTHENGOSUB187@: | RX 2096
Cf{s}" GOTO174G
MA 1590 PRINTATS"B{6}FILE: FA 1784 SYS49176,0,0,6:PRINT:S | JR 210¢
{17 SPACES} {BLU}B{6}TO Y¥S49176,9,K,A:PRINTN QE 2110
TAL BLOCKS:{4 SPACES} | EK 1790 SYS49176,6,K,B:PRINTLT | SG 2120
{BLU}B" (N-1) BP 2130
RA 1666 PRINTATS$"{Q}CCCCCCCCCC | CJ 1860 SYS49176,9,K,C:PRINTLS
ecccceecceccec+CCcccecce (N-1) CK 2140
eCcccccce we" JG 1819 IFN=254THENBEGIN
KD 1614 PRINTATS"B{6}FIRST SEC | SM 1826 :SYS49176,@,24,15:PRIN
TOR: {9 SPACES}{BLU}B T"MAXIMUM ENTRIES REAC | HA 2156
{6}LOAD ADDRESS: HED - PRESS RETURN TO
{4 SPACES}{BLU}B" {SPACE }CONTINUE" XR 2168
HB 1624 PRINTATS"{Q}CCCCCCCCCC | HJ 1836 :GETKEYAS:IFAS$<>CHRS$ (1
ecececceccccc{w} 3) THEN183¢
{3 SPACES}{6}HEX - KP 1846 :SYS49176,0,24,15:PRIN | FP 2176
{9 SPACES} {BLU}B" TSPC(59)
KX 163@ PRINTATS"B{6}DIRECTORY | EH 1856 BEND
:{5 SPACES}{GRN}18 SS 1866 NEXTN:GOTO1916
{5 SPACES} {BLU}B CP 1878 SYS49176,6,24,25:PRINT | xH 2186
{3 SPACES}{6}DEC - "MORE — PRESS RETURN T
{9 SPACES}{BLU}B" O CONTINUE":GETKEYAS
RJ 1646 PRINTATS"{Z}CCCCCCCCCC | DB 1886 S¥S49176,G,24,25:PRINT
ceccecececccccc {BE FCCCCCCE CHRS$ (27) "Q": IFAS<>CHRS$
CCCCCCCCCCEX}" (13) THEN1876 CH 2196
XH 1650 PRINTATS"{A}CCCC{R}CCC | DX 1898 WINDOW21,16,24,22,1:WI
CCCC{S}{AFCCCCER}CCCCC NDOW26,10,32,22,1:WIND
CC{S} {AF}CCCCTR}CCCCCCC 0W35,19,38,22,]:WINDOW
{s}" 40,16,46,22,1:WINDOW49 | AE 2290
KJ 1666 PRINTATS"B{6}BLK: {BLU} ,10,52,22,1:WINDOW54,1
G38 COMPUTE AUGUST 1991

G,60,22,1:WINDOWS,G,79
,

MN=MN+1:RETURN
SYS49176,0,24,19:PRINT
"LISTING COMPLETE - PR
ESS RETURN TO CONTINUE
"

GETKEYAS: IFAS$<>CHRS (13
) THEN1L926
SYS49176,6,24,19:PRINT
"{8 SPACES}PRINT SECTO
R LISTING? (¥/N)
{9 SPACES}"
GETKEYAS: IFAS="N"THEN4
8
IFAS<>"Y"THEN1946
SYS49176,0,24,19:PRINT
"{13 SPACES}PRINTING S
ECTORS..{6 SPACES}"
OPEN4, 4,4: PRINT#4,CHRS
(27) CHRS (14) "
{5 SPACES}"FS
PRINT#4,"{16 SPACES}DI
RECTORY: 18 -"SD
PRINT#4,"{1@ SPACES}TO
TAL BLOCKS: "YE
PRINT#4,"{10 SPACES}LD
ADR: HEX - "ADS
PRINT#4,"{18 SPACES}DE
c -"AD
PRINT#4,"{10 SPACES}BL
OCK{8 SPACES}SECTOR"
PRINT#4,"{10 SPACES}--
---{8 SPACES}------- I
FORN=1TOYE
IFN<1OTHENPRINT#4,"
PRINT#4,"{11 SPACES}"N
"{7 SPACES}"LT (N-1)"-"
LS (N-1)
NEXTN: PRINT#4,CHR$ (27)
"@" :CLOSE4
SYS49176,0,24,19:PRINT
" PRINT COMPLETE - PRE
SS RETURN TO CONTINUE"
GETKEYAS$: IFAS<>CHRS (13
) THEN2099
GoTO4a

me
;

REM SEQ LISTER
PRINTGASTSSG4§CMSG3STF
§

WINDOW25,12,55,12: INPU
T"{4 SPACES}? END

{5 LEFT}";FS
WINDOWG,6,79,24:IFFS$="
END" THEN4G

PRINTG3 $CMS$G5$CM$G4$00
$:GETKEYAS: IFAS<>CHRS (
13) THEN2160
PRINTG4SCMS$:G$=F$:M=67
67:X=@:FORN=LTOLEN (G$)
: POKEM+X, ASC (LEF TS (GS,
1))

GS$=RIGHTS (G$,LEN(G$)-1
) :X=X+1:NEXTN: PRINT"
{CLR} {DOWN}"SPC (46-LEN
(FS) /2) "{RVS}{GRN}"FS"
{OFF}"

PRINT" {HOME} {RVS} {RED}
"NO SCROLL' TO PAUSE L
ISTING {OFF} {CYN}"CHRS(
14)
WINDOWS, 3,79, 24:SYS678
3,LEN(FS)

PROGRAMS

XE

DE

QE
XR
GF
SQ
MP
EG

SE

GS

AS

Qa

JK

BS

KE

KH

2216

2226

2236
2246
2256
2266

2276

2286

2296

2368

23198
2320
2330
2346
2350
2368
2376

2386
2390
2406
2410
2420
2436
2446

2456

2466

2476

2486

2496

25066

2516

25298

GOSUB2680:WINDOWS,9,79
724

PRINT" {HOME} "CHR$(27)"
Q"SPC (6G) CHRS (142)"
{RVS}{RED}RETURN TO CO
NTINUE {OFF}":GETKEYA$
GoTO4g

REM ALLOCATE / FREE
PRINTGASASGBSET$G2$BS$G
4SEES
WINDOW33,11,38,12:INPU
TT: WINDOW48,11,53,12:1
NPUTS
WINDOWG,@,79,24:IFT=0T
HENPRINTG4S$ZRS$:SLEEP2:
GOTO4G
PRINTGBSCS$G2SCSG4SEE$
G4s"{9 RIGHT}"T"

{12 RIGHT}"S
GOSUB2666: PRINT#15,D$;
O;T;S:PRINT#15,"U1";5;
@;18;6:GOSUB2679
PRINTG2SCMSG4SCAS$:GETK
EYAS: IFAS="Y"THEN2268
GOTO46

REM DIRECTORY
PRINT" {CLR} (CYN}":WIND
0W29,0,79,24:SLOW
DIRECTORY:FAST
PRINT"{2 DOWN}

{2 SPACES}PRESS ANY KE
Y¥ FOR MENU"

WINDOWG, 6,79, 24
GETKEYAS

RETURN

REM BAM
PRINTGASBA$G4$00$
GETKEYA$: IFAS<>CHRS (13
) THEN2440
PRINTG4SCMSGB$"{6}LOAD
ING:":M=6144:GOSUB2668
2: PRINT#15,"U1";5;6;18;
G:SYS6656:GOSUB2670:AS
=CHR$ (PEEK (M+3) ) : IFAS<
>CHRS (128) THENSS=-1:EL
SESS=0
NS="":N=144:DOUNTILAS=
CHRS (16@) :AS=CHRS (PEEK
(M+N)) :NS=NS+AS:N=N4+1:
Loop
AS=CHR$ (PEEK (M+162)) :B
$=CHRS (PEEK (M+163) ) :I$
=AS+BS
PRINT" {CLR} {GRN}"SPC (3
5) "{RVS}"NS$"{2 SPACES}
"IS"{OFF}"
PRINTCHRS (27) "M"SPC (14
)"{YBL}111111111122222
22222333333";
IFSS=OTHENPRINT"333344
4444444455555555556666
6666667":ELSEPRINT
PRINTSPC (5) "1234567899
1234567890123456789612
345";:IFSS=OTHENPRINT"
6789612345678961234567
8961234567890" :ELSEPRI
NT

WINDOW2,3,3,24: PRINT"
{SPACE}G 1234567

8 9191112131415161718
1

HE

Js
BP
BD

PG

EG

HQ

PQ

cP

cD

DK

RC

AB

EB

CE

2536

2546
2550
2566

2576

2586
25998
26068
2610

2626

2636

2640
26568
2668

2676
2689

2690
2768
2716
2728

2736

2746

2758

2766

2776
2786

27968
2806

28190

2826

2836

1920463" SE 2846 Q7$="{6} (Z)-ZERO SECT
WINDOWG,@,79,24:C=5:FO OR{2 SPACES}/
RX=5TOL41STEP4:1FX>71T {2 SPACES}(Q) - QUIT "
HENPOKE6958,0 CP 2850 ZRS="{RED}{5 SPACES}TR
IFX>99THENPOKE6957,@8 ACK CANNOT BE ZERO
IFX>123THENPOKE6956,0 {6 SPACES}"
SYS49176,0,0,0:SYS4917 | sc 2866 EES="{6}{3 SPACES}TRAC
6,0,3,C: POKE25G,X:SYS6 K{9 SPACES}SECTOR
833:C=C+1:NEXTX: IFSSTH {9 SPACES}"

EN2620 AF 2876 TFS="{6}{3 SPACES}FILE
GOSUB266G: PRINT#15,"U1 NAME TO LIST (OR END)
"55;0;53;0:SYS6656:GOS {3 SPACES}"
UB267G:FORX=GTO1G2STEP | BH 2886 TRS="{6} -- LOADING LI
3 NK INFORMATION -- "
IFX>5GTHENPOKE6958,9 SX 2890 TJIS="{6} ----- SEARCHI
IFX>7GTHENPOKE6957,6 NG FOR FILE ----- "
IFX>8 9THENPOKE6956,8 CC 2966 SAS="{6}{7 SPACES}SECT
SYS49176,0,0,0:SYS4917 OR TO ALLOCATE
6,0,3,C:POKE250,X:SYS6 {7 SPACES}"
833:C=C+1:NEXTX KC 2910 FRS="{6}{9 SPACES}SECT
WINDOWG,@,79,24:SYS491 OR TO FREE{9 SPACES}"
76,9,0,8 PS 2926 AGS="{6+{11 SPACES}ALL
SYS49176,0,24,65: PRINT OCATING:{1@ SPACES}"
"{RED}{RVS}RETURN TO E | CC 2930 FGS$="{6}{12 SPACES}FRE
XIT{OFF}":GETKEYA$: IFA EING: {12 SPACES}"
$<>CHRS$ (13) THEN2639 HD 2946 FES="{6}{12 SPACES}FIL
GOTO4G ENAME: {11 SPACES}"

: MS 2956 IE$="{6} EDITOR - TRAC
OPEN15,8,15:OPEN5,8,5, KS 1-76 "
"#":GOSUB2680: RETURN PH 2966 TLS$="{6}{5 SPACES}FILE
DCLOSE: GOSUB2680:RETUR {2 SPACES}TRACER

N {5 SPACES}"
IFDS>1THENGOSUB1666:PR | MG 2976 TS$="{6}SEQUENTIAL FIL
INTG4 SFUSG6$DS$:DCLOSE E LISTER"

: SLEEP3:GOTO40 PR 2986 ALS$="{6}{3 SPACES}SECT
RETURN OR{2 SPACES}ALLOCATE

: {3 SPACES}"

REM SETUP EB 2996 SF$="{6}{5 SPACES}SECT
N1=21:N2=26:N3=29:N4=3 OR{2 SPACES}FREE
5:N5=40:N6=43:N7=49:NS {5 SPACES}"

=54:N9=57 MF 3600 BAS="{6}{3 SPACES}DISK
MTS="{6}{6 SPACES}TRAC BAM DISPLAY{3 SPACES}
K{1@ SPACES}SECTOR "

{5 SPACES}" CC 3018 ETS="{6} ENTER :"
CA$="{6}{8 SPACES}CONT | Mx 3620 M2$="{2 SPACES} {RED}E
INUE?{2 SPACES} (Y/N) {6}DITOR{11 SPACES}

{8 SPACES}" {RED}B{6}AM MAP{BLU}
FUS="{6}{5 SPACES}DISK {6 SPACES}"

ERROR - TRY AGAIN RK 3030 M3$="{2 SPACES} {RED}T
{5 SPACES}" {6}RACER{11 SPACES}
00$="{6}{3 SPACES}INSE {RED}S{6}EQ LISTER
RT DISK — PRESS RETURN {BLU}{3 SPACES}"

{3 SPACES}" RS 3040 M4$="{2 SPACES}{RED}A
NVS="{63{9 SPACES }ENTE {6}LLOCATE SECTOR
R NEW VALUE{8 SPACES}" {2 SPACES} {RED}F{6}REE
TXS$="{63{3 SPACES }ENTE SECTOR{BLU}{2 SPACES}
R TEXT-RETURN WHEN DON "

E{3 SPACES}" FD 3656 M5$="{2 SPACES}{RED}D
Q2S="{6} (N)-NEXT / (J {6}IRECTORY{8 SPACES}

)-JUMP / (L)-LOAD " {RED}Q{6}UIT
Q3S="{6}SHIFT (+) OR ( {16 SPACES}"

-) {2 SPACES}- EK 3060 {33 SPACES}"

{2 SPACES}CHANGE TRACK | XE 3079 {28 SPACES}"
ny PB 3086 {8 SPACES}"
Q4$="{6}{2 SPACES}(+) | KR 3096 {HOME} {4 DOWN}
{SPACE}OR (-) {36 RIGHT}"

{2 SPACES}-{2 SPACES}C | BP 3166 GBS="{HOME}{6 DOWN}
HANGE SECTOR{2 SPACES} {37 RIGHT}"

% JP 3118 G1$="{HOME}{8 DOWN}
Q5$="{6}{3 SPACES} (S)- {25 RIGHT}"
STORE / (P)-PULL DATA | AH 3126 G2$="{HOME}{9 DOWN}

{4 SPACES}" {25 RIGHT}"
Q6$="{6}(C)-CHANGE / ( | SS 3136 G3S="{HOME}{10 DOWN}
T)-TEXT / (W)-WRITE" {25 RIGHT}"

ae
AUGUST 1991 COMPUTE G39

nN
3
cf
a
°
=
=
8
La
-
-
tt
N
<q
6

PROGRAMS

———-

PE 3140 Tee DOWN} 5

25 RIGHT}" =

AR 3150 G5S="{HOME}{12 DOWN} Typing Aids
{25 RIGHT}"

RH 3166 ner mcnouty(° DOWN} ONL Y Att ti

25 RIGHT}"
MB 3170 Cues picue) (14 DOWN} ON N S en ion, '
25 RIGHT}"

AC 3180 DIMLT (255) ,LS (255) ew ubscribers!

HS 3196 FORX=6T03@4:READC: POKE
6656+X,C:NEXT: RETURN MLX, our machine language entry

eS ee CBRE Risseec eta program for the 64 and 128, and

5 153,0,
24,200,208, 247,96, 162, The Automatic Proofreader are
5,32 In addition to the type-in pr utilities that help you type in Ga-

BJ 3210 DATA2G1,255,160,1,18 : Frooians i i
4, 24,32,210,255,266, 34 | found in each issue of the maga- zette programs without making _
8,247,96,169,0,133,250 | zine, we offer additional features mistakes. These labor-saving utili-

ae anaes and programs every month on Ga- ties are on each Gazette Disk and
: bie a 537 ohn baa og | zette Disk. Disks may be pur- printed in issues of Gazette

203,236,
6,208,241,96,169,@,133| chased for $9.95 plus $2.00 through June 1990.
Fe fie aca a shipping and handling. The address :

MS 3236 DATA162,5,32,198,255,1| is Gazette Disk, COMPUTE Publi- If you don't have access to a back

Be 258, Ser ane 2 oy 2 3 | cations, 324 West Wendover Ave- issue or 3g oe of a oo write
, ' , ’ ’ , ' if ‘|
263 nue, Suite 200, Greensboro, North to us, and we'll send you free

AM 3246 DATA23@,250,208,238,96 | Carolina 27408. Here's a descrip- copies of both these handly utili-
1160,6,162,0,185,6,24, | tion of this month's bonus. ties. We'll also include instructions
ReMi cere ABRs 16278 on how to type in Gazette pro-

HE 3250 DATA28,243,134, 254,96 Mega-Adventure grams. Please enclose a self-
1206,232,224,15,268, David M. Williams addressed, stamped envelope.
Ge Charlestown, NSW, Australia ‘ ) fe ee

GS 3260 DATAG,G,0,5,9,0,6,0,0, | Inthis text-based adventure game, pie we Tye Pages COMPUTE’
G,162,111,168,26,32,18| youcontrola teenaged hacker in azette, 324 West Wendover Ave-
2. ae ,169,5,162,8,169, | his quest to add zeros to the pitiful nue, Suite 200, Greensboro, North

BR 3270 DATA186,255,169,6,162, | SUMinhisbank account. Discover | Carolina 27408.
6,32,104,255,32,192,25 | What part his archaeologist parents
5,162,5,32,198,255,32, play in this story. Is it true that his
267 foul-tempered grandmother almost

ae a8 8 33132 121922557165 | became dictator of Cuba before
195,255, 32,204,255,96, | she gave up Marxism and relin- PROGRAMMERS
164 quished power to Castro? And how

QQ 3298 DATA25G,185,0,24,168,8| abo liceman . : aye
POM VG N44 0452 /18,275 || 1 Ce ee aay Gazette is looking for utilities,
136.208,246,230,250,16 | Winks at him at Woolworth’s? Can cues
eee NN! he be trusted? games, applications, educa-

SP 3308 DATATE deze 160 Le 24 The game opens in your bed- tional programs, and tutorial
116,144,3,32,18,27, room. It's a relatively small room, 7 '

' aa 18,208,244,236,258 | containing more electrical equip- Ent i atl eae?
, : ‘

KF 3310 DATA25G,185,0,24,10,19 | ™mentthana NASA tracking station. : ee
,10,160,21,24,10,144,3 | Astereo ona table next to your un- readers might enjoy or find
+32,18,27,136,192,16,2 | made bed plays music by Jean-Mi- useful, send it on disk to

eae Be eer RAG saiae chel Jarre. Your bookshelf contains ‘

7169,1,133,256, ‘tina ti mae 4
164,250,185,26,27,246, | €xciting titles such as The Fractal Gazette Submissions Reviewer
11,32,47,204,32,90, 200 Geometry of Nature, 68000 Pro- sate
7230 grammers Reference Manual, and COMPUTE Publications

FB 3338 DATA250,76,243,26,169, | The Stainless Steel Rat's Revenge. 324 W. Wendover Ave.

1,169,81,153,26,27,200 ain
On a pizza-stained table rests 5
192,22, 208,248,96,178 your Aries Renn Conppulsr eye te. 200
169 =

AD 3340 DATA45,153,26,27,138,9 | tem. Amodem connectsittoatele- | Greensboro, NC 27408
6,@,81,81,81,81,81,81, | phone. Things that may interest
81,81,81,81,81/81/81,8 | yoy are a leather jacket and a disk Please enclose an SASE if you

KH 3350 DATAS1,81,81,81,81,81, we a Seg on the label. wish to have the materials
g e rest is up ju.

coeie ee a returned.

G4o COMPUTE AUGUST 1991